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PREFACE 

This manual describes the features of the BASIC-11 language. This 
manual assumes you are familiar with the standard Dartmouth BASIC 
language and have a knowledge of programming concepts. If you are 
totally unfamiliar with BASIC, you should read an introduction to 
BASIC before reading this manual. 

This manual describes: 

• Structure of BASIC-11 programs 

• Elements of BASIC-11 

• BASIC-11 statements 

• BASIC-11 functions 

• BASIC-11 commands 

• BASIC-11 error messages 

This manual describes the features common to all versions of BASIC-11, 
but it does not document system-dependent features and procedures. 
For this information, see your system's BASIC-11 user's guide. 
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DOCUMENTATION CONVENTIONS 



These are the documentation conventions which are used throughout this 
manual . 

The following symbols have special meaning. 

Symbol Meaning 

(""'-") While pressing the CTRL key, type the letter indicated 
after the slash 

Type the RETURN key 

Type the RUBOUT key 

In addition, this manual uses certain conventions when describing the 
format of statements, functions, and commands. 



These are: 

Convention 



Meaning 



The enclosed elements are optional. For example: 



LET 



variable=expression 



A choice of one element among two or more 
possibilities, for example: 



IF relational expression 



^THEN Statement 
<THEN line number 
(go to line number 



Preceding element can be repeated as indicated. 
For example: 

CLOSE #exprl ,#expr2 , . . . 



Items in 
capital 
letters and 
special 
symbols 



Type these elements exactly as they appear in the 
format, for example: 

LET 
RUN 

# 

Items in capital letters are called keywords. 



Items in Replace these elements according to the 
lower case description provided in text. See below for list 
letters of commonly used lower case items. 

This list describes some lower case items commonly used in format 
descriptions. The general meaning of each item is given. Unless a 
specific format description places restrictions on an item, its 
general meaning applies. 



IX 



DOCUMENTATION CONVENTIONS (Cont.) 



Lower 
Case Item 

expression 



Abbreviation 



expr 



file specification 



integer 



int 



line number 



string 



variable 



var 



Meaning 

Any valid BASIC-11 
expression. It is always a 
numeric expression (see 
Section 2.4.1) unless the 
description specifically 
states that it can be a 
numeric or string expression 
(see Section 2.4.2). For 
example: (5*SIN(X))"Y 

A file specification in the 
format described in your 
BASlC-11 user's guide. 

Any positive integer number 
constant or any positive 
numeric constant that could 
be an integer if a percent 
sign was put after it. For 
example; 5%, 3%, 2, 7 

Any line number as described 
in Section 1.4. For 
example: 10, 100, 32767 

Any string expression (see 
Section 2.4.2) . For 
example: "ABC", 
C$+SEG$(A$,3,4) 

A floating point, integer or 
string variable (see Section 
2.3) 



If there is more than one lower case word in a format, the words are 
numbered 1, 2, 3, etc.. For example: 

CLOSE #exprl,#expr2,#expr3, . . . 

Throughout this manual, the term BASIC means BASIC-11 or any BASIC-11 
system. 

To differentiate between what BASIC prints and what you type, the user 
type-in is printed in red ink. For example: 



RUMNH 

WHAT NUMBERS? 
THE SUM IS 15 



:i.O 



READY 

All user type-in is terminated by the ( «et ) key unless the text 
indicates a different terminator. 
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CHAPTER 1 
PROGRAMMING IN BASIC 



1.1 INTRODUCTION 

BASIC (Beginner's All-purpose Symbolic Instruction Code) is a computer 
language developed at Dartmouth College under the direction of 
Professors J. G. Kemeny and Thomas E. Kurtz. It is one of several 
compiler languages used to translate symbolic language programs into a 
form that a computer can execute. Because the BASIC language is 
composed of easily understood statements and commands, it is one of 
the simplest programming languages to learn. 

BASIC provides an interactive human/machine relationship by allowing 
you to communicate directly with its processor. It is a 
conversational programming language which uses simple English-like 
statements and familiar math notations to perform an operation. 

BASIC-11, a BASIC language available on PDP-11 systems, is an 
outgrowth of Dartmouth BASIC. It encompasses both the elementary 
statements used to write simple programs and many new and advanced 
features. These new features, not found in standard Dartmouth BASIC, 
allow you to write and execute more complex and efficient programs. 



1.2 STRUCTURE OF A BASIC PROGRAM 

A BASIC program consists of a set of statements using certain language 
elements and syntax described in the following chapters. Expressions, 
line numbers, and statements are joined to solve a particular problem, 
with each line containing instructions to BASIC. 

A BASIC program can be one line or several lines long. This is a 
complete program: 

10 PRINT "THIS IS A l-LINE PROGRAM." 

Each line begins with a number that identifies the line as a statement 
and indicates the order of statement execution. Each statement starts 
with a word specifying the type of operation to be performed. 

Examine the following program. What is the result of adding the value 
of the variable B to the value of the variable C? 

:l.0 FOR I^^=:l. TO 5 

20 INPUT BvC 

30 LET A=B+C 

40 PRINT °BK> "5A 

SO NEXT I 

AO END 
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Look at the structure of this program. There are line numbers, 
calculations, instructions, and a statement to stop the program. 

In lines 10 and 50, you establish a loop through which the program 
runs five times and then stops. 

:!.() FDR :i: = ;i. to 5 

50 NEXT I 

In line 20, the program requests input from you. You supply the 
values of the variables B and C during program execution. 

20 INi"'UT B?C 
In line 30, you place the result of the addition in variable A. 

20 L.ET A--B'fC 

Without line 40, your program would run but you would not see the 
results. 

40 PRINT "B-fC= "5 A 
Line 60 ends your program. The END statement is optional. 



Shifting and transferring control, looping and supplying data are all 
part of a BASIC program. 



1.3 BASIC CHARACTER SET 

If you look closely at a BASIC program, such as the one previously 
shown, you will notice that it consists of letters, numbers, and 
symbols arranged in a certain syntax. These characters can be 
considered the alphabet of the BASIC language. 

BASIC uses the full ASCII (American Standard Code for Information 
Interchange) character set for its alphabet (see the ASCII Table in 
Appendix C) . This set consists of: 

1. Upper-case letters A through Z 

2. Lower-case letters a through z 

3. Numbers through 9 

4. Special characters 

5. Nonprinting characters 

This character set enables you to include any ASCII character as part 
of a program. BASIC translates what you type. Some characters are 
processed and some are ignored. 

BASIC translates characters in the following manner: 

1. Letters a through z - BASIC translates all lower-case ASCII 
characters to upper-case characters. 
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2. Non-printing (i.e., control characters) and null characters 

(i.e., space, tab) - BASIC ignores them. 

3. All other characters - BASIC accepts these characters 
unchanged. 

String constants are a different matter (as described in Section 
2.2.3). Everything you type into a string constant is interpreted 
literally by BASIC. Consequently, in a string constant: 

1. All lower-case alphabetics (a,b,c) remain lower-case. 

2. All non-printing and null characters are accepted, including 
spaces and tabs. 

BASIC also accepts all characters in a REM statement (see Section 
1.6). 

System editing characters affect terminal output format only. 
Therefore, you need not be concerned, at this point, with the way 
BASIC handles them. (System editing characters, such as CTRL/U are 
described in Section 9.1.) 



1.4 LINE FORMAT 

The format of a line in a BASIC program is as follows: 

line statement statement line 
number keyword body terminator 

10 LET R=SQR(X'~2 + Y''2) G^T) 

Every line in a BASIC program must begin with a number. This number 
must be a positive integer within the range 1 to 32767 inclusive. A 
BASIC line number is a label that distinguishes one line from another 
within a program. Consequently, each line number in the program must 
be unique. 

Leading zeroes, as well as spaces, have no effect on the number. For 
example, these numbers are all the same to BASIC: 

00010 

10 

10 

There are several reasons why BASIC requires line numbers: 

1. To tell BASIC the order in which to execute the program. 

2. To aid you in correcting and updating a program. 

3. To provide a reference for conditional and unconditional 
transfers of control. (See Chapter 4) 
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You can use consecutive line numbers like 1,2,3 and 4. For example: 

;l. A-5 

4 END 

however, a useful practice is to write line numbers in increments of 
10. This method allows you to insert additional statements between 
existing lines. The following program illustrates line number 
increments. 

:i.O A ""5 

20 B-^:I.O 

30 C^-^A+B 

40 END 

This program assigns values to two variables, adds them, and places 
the result in variable C. If you want the program to print the 
results of line 30, add the PRINT statement with a line number in the 
range 31 to 39 inclusive. For example, if you add a line numbered 33, 
the program looks like this: 

7-0 B:-":l.0 
30 C-AfB 

33 pr:i:nt c 

40 END 

Unlike integer constants (see Section 2.2.2) , line numbers cannot have 
a percent sign (%) . 

BASIC ignores blanks, spaces, and tabs within a line (unless in a 
string enclosed by quotation marks or in a REM statement) . Therefore, 
you need not worry about typing spaces in a program. For example: 

10 LET A^^^^B+C 

can also be typed 

10 LETA:=^BfC 
or 

:l, 1... E T A -•B •}■ C 

These three lines are the same to BASIC; they will all be listed as: 

:l.0 LET A:^^:Bf(:; 

In BASIC, you terminate a line by pressing the RETURN key. Pressing 
this key provides a carriage return/line feed sequence. 



1 . 5 STATEMENTS 

BASIC statements consist of English-like words called keywords (words 
recognized by BASIC) that you use in conjunction with the elements of 
the language set: constants, variables, operators, and functions. 
These statements divide into two major groups: executable statements 
and non-executable statements: 
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Executable statements specify the action of a program by 
telling BASIC what operation to perform (i.e. PRINT, GO TO, 
READ) . 

Non-executable statements describe the characteristics and 
arrangement of data, editing information, and statement 
functions that you include in your program (i.e., DATA and 
REM) . 



1.5.1 Single and Multi-Statement Lines 

You have the option, with BASIC, of writing either one statement or 
many statements on one line. However, you cannot continue a BASIC 
statement from one line to the next. 

A single statement line consists of: 

1. A line number from 1 to 32767 

2. A statement keyword 

3. The body of the statement 

4. A line terminator (RETURN key) 

When typing your program, end each line by pressing the RETURN key. 

This is a single statement line: 

10 LET A:™B*C/(3*F 

To enter more than one statement on a single line (multi-statement 
line) , separate each complete statement with a backslash (\) . This 
backslash symbol is the statement separator (or terminator) . You must 
type it after every statement except the last in a multi-statement 
line. For example, the following line contains three complete PRINT 
statements: 

.1,0 pr:i:nt a \ print m \ print g 

There is only one line number for a multi-statement line. 
Consequently, you should take this into consideration if you plan to 
transfer control to a particular statement within a program. For 
instance, in the previous example, you cannot execute just the 
statement 

PRINT V 

without executing PRINT A and PRINT G. 

Most statements can appear in a multi-statement line. The exceptions 
are noted in the discussion of individual statements in this manual. 
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A multi-Statement line consists of: 

1. A line number from 1 to 32767 

2. A statement keyword 

3. The body of the statement 

4. A backslash {\) 

5. As many repetitions of 2, 3, and 4 as you want 

6. A statement keyword 

7. The body of the statement 

8. A line terminator (RETURN key) 

1.6 DOCUMENTING PROCEDURES (REM STATEMENT) 

BASIC allows you to document your methods, insert notes and comments, 
or leave yourself messages in your program. This type of 
documentation is known as a remark or comment. BASIC provides the REM 
statement for this purpose. The REM statement has the following 
format: 

REM comment 

where: 

comment is anything you want to say. 

You may place a REM statement anywhere in your program because it does 
not affect program execution. Remarks do, however, use memory area 
which you may need for exceptionally long programs. 

The REM statement can be either the only statement on the line 

10 REM THIS IS AN EXAMPLE 
or it can be one of several statements in a multi-statement line. 

20 LET A=5 \ PRINT A \ REM THE VALUE OF A IS S 

BASIC ignores anything in a line following the keyword REM until it 
reaches a backslash (\) or a line terminator. The backslash 
terminates the REM statement as it does all other statements in BASIC. 
Obviously, the only printing character you should not include in a 
remark is a backslash. 

You can use the line number of a REM statement in a reference from 

another statement (i.e., GO TO); however, in this case, BASIC ignores 

the REM statement and proceeds to execute the next non-REM statement 

following the line referenced. (See Section 4.1.1 for the GO TO 
statement. ) 

Remember that BASIC prints the remarks on the terminal only when you 
list the program. (See Section 9.2 for a description of the LIST 
command. ) 
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1.7 ENTERING BASIC PROGRAMS 

It is very easy to enter BASIC programs. Simply type the program 
lines in the format described in Section 1.4. (Start each line with a 
line number and terminate with the RETURN key.) You can type the lines 
in any order, BASIC stores them in numeric order by line number. For 
example, you can type; 

;l,0 A ==5 
20 B=10 

40 PRINT C 
50 END 

Or you can type: 

50 END 

20 b-=^:lo 

40 PRINT C 
10 A ="5 
30 C :■•■■: A fB 

They are equivalent to BASIC. 

If you type a line and want to change it, simply type a new line with 

the same line number. BASIC replaces the old line with the new. For 

example, if you type the program listed above and want to change line 
30 to be A*B instead of A+B, simply type: 

30 OMB 

If you want to delete a line completely, simply type the line number 
followed by a RETURN key. To delete line 50, the statement that ends 
the program, type: 

50 

If you are typing a line and realize that you have made a mistake 
before you type the RETURN key, there are two ways to correct the 
error. You can type the RUBOUT key, which deletes the last character 
that you typed, until you have deleted the characters which were 
errors and then retype the rest of the line. Or you can type CTRL/U 
which tells BASIC to ignore the entire line. See Section 9.1 for more 
information on these and other key commands. 

BASIC stores your program in an area in the computer's memory. Each 
time you enter a new line, BASIC stores it in your area. Each time 
you delete a line, BASIC erases it from your area. Each time you 
replace a line, BASIC erases the existing line and stores the new 
line. 

BASIC has a set of commands which allow you to list, execute, or 
modify the program in your program storage area. BASIC commands 
consist of a keyword followed by optional specifications. Do not type 
a line number before a command. (See Section 1.8 for a description of 
immediate mode statements, statements which are not preceded by a line 
number . ) 

One BASIC command is the LIST command. If you want to see the program 
lines that you have already entered, type the LIST command. Type 

LIST 
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BASIC prints out a header line followed by the lines you have typed. 
When it is done, it prints the READY message. The READY message means 
that BASIC is ready to accept a program line, command, or immediate 
mode statement. For example: 

LIST 

N NAM E 3 - J (J I... •■••7 6 :l. 5 M 3 J 2 7 

20 B^::=:lO 
30 (>-^A*B 
40 PRINT C 

READY 

Another BASIC command is the RUN command. If you want BASIC to 
execute your program, type the RUN command. After BASIC executes your 
program, it prints the READY message. For example; 

RUN 

N D N A M i;;: 3 O •■■• > J U l... ■■■• 7 6 ;l. 5 S 4 3 M 4 

50 

READY 

If you want BASIC to list the program lines or to execute your program 
without printing the header line, type LISTNH or RUNNH, respectively 
(NH stands for No Header) . 

BASIC has commands to: 

• List your program (LIST and LISTNH) . 

• Execute your program (RUN and RUNNH) . 

• Delete program lines (DEL) . 

• Erase your program (NEW, SCR, and CLEAR) . 

• Save your program (SAVE and REPLACE) to a file. 

• Restore youi: program (OLD and APPEND) from a file. 

• Delete programs saved in files (UNSAVE) . 

• Change the program name (RENAME) . 

• Edit a line that you have entered (SUB) . 

• Resequence the line numbers in your program (RESEQ) . 

• Save a compiled program (COMPILE) . 

• Find out how big your program is (LENGTH) . 

See Chapter 9 for a complete description of these commands. 

BASIC always prints the READY message when it completes execution of a 
command . 
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1.8 USING BASIC WITBOOT WRITING A PROGRAM (IMMEDIATE MODE) 

You do not have to write a program to use BASIC. BASIC can execute 
most statements as soon as you type them. To have BASIC execute a 
statement immediately, type the statement without a line number. 
Statements typed without a line number are called immediate mode 
statements. Immediate mode statements differ from commands in that 
you can type the same statement with a line number but a command with 
a line number is meaningless. 

If you type the statement PRINT 4+5 with a line number, BASIC stores 
the program line for later execution. For example: 

;l.O PRINT 4f5 

But if you type the line without a line number BASIC executes the line 
and then prints the READY message. 

pr:i:nt 4}-5 

9 

READY 

You can enter several immediate mode statements in a row. For 
example: 

LET A=::5 
READY 

pr:i:nt a*:i.2 

AO 

READY 

Or you can enter several immediate mode statements on one line. 
Separate each statement with a backslash. When you type the RETURN 
key, BASIC executes all the statements on the line. For example: 

A-5 \ B-:i,4 \ C-U3729 \ pr:i:nt a*b»s:cn(C> 

70 »;S64:l.38 

READY 

You can use BASIC as a powerful calculator by using immediate mode. 
For example after typing the previous immediate mode statement, type: 

PRINT "THE HEIGHT IS" !lB*!:>:i:N<C)tvAii "METERS" 
THE HEIGHT IS :l.0«:l.004 METERS 

READY 
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You can use FOR-NEXT loops (see Section 4.2.1) in immediate mode if 
you can enter the entire loop on one line. For example: 

FOR I- .1. TO 10 \ PRINT 1> SQRd) \NEXT I 

1 1 

2 :l. .4:U2;L 

3 :l. .73205 

4 2 

5 2 f 23607 

6 2.44949 

7 2.64575 
B 2.82843 
9 3 

:l.0 3.16228 

READY 

Another use of immediate mode is to debug (find and correct the errors 
in) your program. First you execute your program with a RUN command. 
Then you can use immediate mode PRINT statements to find the values of 
variables in the program. You can also use the LIST command to look 
at the program lines. After making any needed changes you can 
continue the program with an immediate mode GO TO statement (see 
Section 4.1.1). For more information on program debugging, see the 
description of the STOP statement in Section 4.3 and the description 
of error messages in Appendix A. 

You can use most BASIC statements in immediate mode. You can not use 
the INPUT or LINPUT statement (see Sections 3.1.1 and 3.1.2) in 
immediate mode. If you do, BASIC prints the 7ILLEGAL IN IMMEDIATE 
MODE (?IIM) error message. Certain other immediate mode statements, 
though they do not cause an error message, are ignored by BASIC. 
These immediate mode statements that are ignored are COMMON, DATA, 
DEF, and DIM. 
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CHAPTER 2 
ELEMENTS OF BASIC 



2 . 1 TERMINOLOGY 

In order to write programs in BASIC, you must be familiar with the 
terms and phrases used to describe the program elements. You will 
probably recognize most of these terms from previous experience; 
however, the following sections define these terms within the context 
of BASIC. 



2 . 2 CONSTANTS 

A constant is a quantity with a fixed value. In BASIC, you can enter 
a constant as part of a program or have BASIC read it from another 
file during program execution. 

There are three types of constants in the BASIC language: 

1. Numeric constants (floating point numbers also called real 
numbers) 

2. Integer constants (whole numbers) 

3. String constants (alphanumeric and/or special characters) 



2.2.1 Numeric Constants 

A numeric constant is one or more decimal digits, either positive or 
negative, in which the decimal point is optional. BASIC assumes a 
decimal point exists to the immediate right of the number if you do 
not include one. For example, the numeric constant 

184 
is equivalent to 

184. 

The following are all valid numeric constants: 

5 42861 
74 -125 

6. .95 
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BASIC accepts numeric constants within the approximate range 

10''-38<n<10~+38 

where n is the numeric constant you specify. 

If you type a numeric constant in a program that is outside this 
range, BASIC prints a fatal error message to that effect. This means 
that your program will not execute until you replace the numeric 
constant with one in the proper range. 

However, you can input very large numbers and very small numbers 
(within this range) by using a method similar to scientific notation. 
Use the following format: 




X.XXXXXE 



5.24016E-3 




nn 



where: 



+ or - is the sign of the number, 
with positive numbers; 
with negative numbers. 



The plus sign (+) is optional 
the minus sign (-) is mandatory 



B 
nn 



is a digit from to 9. 

is the decimal point. 

represents the words "times 10 to the power of". 

is the 2-digit exponential value (the power of 10) . 



This method of mathematical shorthand is called E notation. It is 
BASIC'S way of representing scientific notation. To use this format, 
append the letter E to the number. Then follow the E with an 
optionally signed whole number. The integer constant is the exponent. 
It can be but never blank. Thus you can type: 



6000000 as 6E6 



and .000005 as 5E-6 



You are actually positioning the decimal point internally by using E 
notation. A positive exponent moves the decimal point to the right; 
a negative exponent moves the decimal point to the left. For 
instance, if you type the number 

5.2041E-3 

BASIC interprets it as .0052041. 

Table 2-1 shows the different methods of writing the same number. 



Table 2-1 
Number Notations 



STANDARD NOTATION 


SCIENTIFIC NOTATION 


E NOTATION 


1000000 
10000000 
100000000 
1000000000000 


1 X 10"6 
1 X 10"^? 
1 X 10"8 
1 X 10"12 


l.OOOOOE+06 
l.OOOOOE+07 
l.OOOOOE+08 
l.OOOOOE+12 
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BASIC uses floating point format when storing and calculating most 
numbers. Integers, however, are handled in a slightly different 
manner. (See Section 2.2.2.) 

The following are examples of numeric constants: 



.84103E-06 


-377 


-12345 


6.64 


5E+03 


8.0E-03 


9.4177 


6562 


25 



BASIC Stores numbers to a certain degree of accuracy (or precision) . 
See your BASIC-11 user's guide for the accuracy of numbers. 



2.2.2 Integer Constants 

An integer constant is a whole number (no fractional part) written 
without a decimal point. BASIC adds a decimal point internally to the 
right of the integer. Therefore, to distinguish a numeric constant 
(floating point number) from an integer constant (whole number) , type 
an integer constant as one or more decimal digits terminated by a 
percent sign (%) . For example, the following numbers are all integer 
constants (whole numbers) ; 

29% -8% 

3432% 1% 
12345% 205% 

The following are not integer constants: 

1.6 .08% 

754.2% 5.2041E+06 
34 1/2 95 

You should use integers instead of floating point numbers to store 
whole numbers because integer storage requires less memory and integer 
arithmetic operations take less execution time than the equivalent 
floating point operations. Saving space is most important when you 
are using large arrays (see Section 2.6). 

In BASIC you can type integer constants within the range 

-32768% to +32767% 

If you specify a number outside this range, BASIC prints a fatal error 
message telling you that you must replace the number with one within 
the proper limits. 



2.2.3 String Constants 

A String constant (also called a literal) is one or more alphanumeric 
and/or special characters enclosed by double quotation marks ("text") 
or single quotation marks ('text'). You can include double quotation 
marks within a string constant delimited by single quotation marks and 
vice versa. 

Each character in a string constant can be a letter, a number, a 
space, or any ASCII character except a line terminator (RETURN key) . 
The value of the string constant is determined by all the characters 
between the delimiters including spaces. 
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BASIC prints every character between quotation marks exactly as you 
type it into the source program, including: 

1. Lower-case letters (a-z) 

2. Leading, trailing, and embedded spaces 

3. Tabs 

Note, however, that BASIC does not print the delimiting quotation 
marks when the program is executed. 

LISTNH 

.1.0 pr:i'nt "d:i:g:i:tai..." 

20 END 

READY 
RUNNH 

DiGirrAL 

READY 

In order to make BASIC print quotation marks, you must enclose them 
within another pair of quotation marks, either double or single. 

LIBTNH 

10 PRINT 'HE SAlDv "GOOD MORNING!"' 

20 END 

READY 
RUNNH 

HE SAIDv "GOOD MORNING! " 

READY 

Here are some examples of string constants: 

"THIS IS A STRING CONSTANT." 

'SO IS THIS. ' 

"TONY'S TENNIS RACKET" 

Include both the starting and ending delimiters when typing a string 
constant in a program. These delimiters must be of the same type 
(both double quotation marks or both single quotation marks) . 

These examples are incorrect: 

"WRONG TERMINATOR' 
'SAME HERE" 
"NO TERMINATOR 



2 . 3 VARIABLES 

A variable is an unknown quantity that may change during program 
execution. In BASIC, each variable refers to a distinct location in 
the computer's memory. Each location holds one value at any one time. 
The number it holds is the value of the variable corresponding to the 
location. 
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Depending on the operations you specify in a program, the value of a 
variable may change from line to line. BASIC uses the most recently 
assigned value of a variable when performing calculations. This value 
remains the same until a statement is encountered that assigns a new 
value to that variable. 

BASIC accepts three types of variables: 

1. Simple numeric variables (floating point) 

2. Integer variables 

3. String variables 



2.3.1 Numeric Variables 

A numeric variable is a named location in which a single numeric value 
(floating point number) is stored. You name a numeric variable with a 
single letter or a single letter followed by a single digit. For 
example, the following are simple numeric variables: 

CI L 

M B5 

F6 Z2 

The following are not numeric variables: 

6 A. 2 

EC .E 

4D 25 

Before program execution, BASIC sets all numeric variables to 0. If 
you require an initial value other than 0, you can assign it with the 
LET statement (Section 2.5). Otherwise, you can declare the value 
implicitly by just typing the variable in a program. 

NOTE 

Because other BASIC implementations may 
not set all variables to before 
program execution, you should not rely 
on this feature. A good programming 
practice to follow is to set all 
variables to at the beginning of the 
program. You can do this with a series 
of LET statements (see Section 2.5) or 
by using READ and DATA statements (see 
Section 3.1.3) . 

You can assign a new value to a variable at any point in your program. 
BASIC always uses the most recent value that you have assigned. 



2.3.2 Integer Variables 

An integer variable (like a numeric variable) is a named location in 
which a single value can be stored. Using an integer variable in yoi 
program indicates that the value forthcoming is a whole number ;. 
fractional part) . 
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You name an integer variable with a single letter or a single letter 
and a single digit, terminated by a percent sign (%) . For example, 
the following are integer variables: 

A% C8% 
Bl% D% 

The following are not integer variables: 

A 82 
1B% 123% 

If you include an integer variable in a program, then the value you 
supply for it must be an integer constant. If a numeric constant 
(floating point number) is assigned to an integer variable, BASIC 
drops the fractional portion of the value. The number is not rounded 
to the nearest integer; it is truncated. Consider the following 
example: 

B% = 5.7 

BASIC assigns the value 5 to the integer variable, not 6. 
Consequently, you should not assign a nonintegral value to an integer 
variable, but if you do you must be aware how the truncation will 
affect your calculations. 

You can use an integer variable anywhere that you can use a numeric 
variable as long as you only plan to store whole number values in the 
range -32768 to 32768. 

If you assign an integer constant to a numeric variable, BASIC prints 
the integer value as an integer but stores the real number internally. 
This method takes more storage space because of the fraction that 
BASIC must maintain. 



NOTE 

You can use numeric and integer 
variables with the same leading 
alphanumerics in the same program. Dl 
and Dl% represent two different 
variables. 



2.3.3 String Variables 

A string variable is a named location used to store alphanumeric 
strings. You name a string variable with a letter-, an optional digit, 
and a dollar sign (S) . The dollar sign ($) must be the last character 
in the name. The following are examples of string variables: 

Cl$ 

L$ 

Z2$ 

M$ 

F6$ 
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These are not string variables: 

CI 
L 

2Z$ 

$M 

P6 

The dollar sign ($) not only represents a string variable to BASIC, 
but it also indicates a string variable to anyone who reads the 
program. 

BASIC initializes all string variables to a length of (null string) 
before the start of each program execution. During execution, the 
length of a character string associated with a string variable can 
vary from (signifying a null or empty string) to 255 characters. 

Note that a simple numeric variable, an integer variable, and a string 
variable that begin with the same alphanumeric characters can 
represent three distinct variable names. The following names are all 
legal within a single BASIC program: 

A5 a simple numeric variable 
A5% an integer variable 
A5$ a string variable 



2.3.4 Subscripted Variables 

A subscripted variable is a numeric variable, an integer variable, or 

a string variable with one or two subscripts appended to it. The 

subscripts can be any positive expression (see Section 2.4.1). The 
value of the subscript can be to 32767. 

The subscript, in a subscripted variable, is a pointer to a specific 
location in a list or table in which an unknown value is stored. (See 
Section 2.6 for more information on lists and tables, also known as 
arrays.) You designate the pointer with either one or two subscripts 
enclosed by parentheses. If there are two subscripts, separate them 
with a comma. The value stored can be numeric, integer, or string 
data. 

To name a subscripted variable, start with a simple numeric, integer, 
or string variable name: 

A A% A$ 

To refer to an element in a list (one dimension), follow the variable 
name with one subscript within parentheses. For example: 

A (6) A%(6) A$(6) 

A(6) refers to the seventh item in this list because the lists start 
with the item with a subscript: 



A(0) 


A(l) 


A(2) 


A(3) 


A(4) 


A(5) 


A(6) 


10 


20 


30 


40 


50 


60 


70 



To refer to an element in a table (two dimensions) follow the variable 
name with two subscripts. The first subscript designates the row 
number, and the second subscript designates the column number. 
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Separate the two subscripts with a comma. For example: 

A(7,2) A%(4,6) A$(17,23) 

In the following table, the arrow indicates the element pointed to by 
the subscripted variable A%(4,6): 









0-- — A%{4,6) 

Notice that all the elements in this table have a value of 0. 

BASIC accepts the same alphanumeric characters for a simple numeric 
variable and a subscripted variable within the same program. However, 
do not use the same alphanumeric characters for two arrays (Section 
2.6) with a different number of subscripts. 

This is acceptable in the same program: 

D simple numeric variable 

D(8) subscripted variable 
This is not acceptable in the same program: 

D(8) one subscript 

D(3,6) two subscripts 



2.4 FORMING EXPRESSIONS 

An expression is a symbol or a group of symbols that BASIC can 
evaluate. These symbols can be numbers, strings, constants, 
variables, functions (Section 2.4.4), array references (Section 2.6), 
or any combination of these, separated by one of the following: 

1. Arithmetic operators (to form arithmetic expressions) 

2. Relational operators (to form relational expressions) 

3. String operators (to form string expressions) 



2.4.1 Arithmetic Expressions 

BASIC allows you to perform addition, subtraction, multiplication, 
division, and exponentiation with the following operators: 

Exponentiation 
* Multiplication 
/ Division 
+ Addition, Unary + 
- Subtraction, Unary - 

Performing an operation on two arithmetic expressions of the same data 
type yields a result of that same type. For example: 

A%+B% = an integer expression 
G3*M5 = a floating point expression 
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If you combine an integer quantity with a floating point quantity, the 
result will be floating point. For example: 

A*B% = a floating point expression 

6.8*5% = 34.0 

The value of an integer expression is truncated. For example 3%/5% is 
equal to 0% not .6. 

Table 2-2 provides examples of arithmetic operators and their meaning. 



Table 2-2 
Arithmetic Operators 



OPERATOR 


EXAMPLE 


MEANING 


+ 


A + B 


Add B to A 




- 


A - B 


Subtract B from A 




* 


A * B 


Multiply A by B 




/ 


A/B 


Divide A by B 




" 


A"B 


Calculate A to the power B 



Note that in general, you cannot place two arithmetic operators 
consecutively in the same expression. The exception is the unary 
minus. For example: 

A*-B is valid and A*(-B) is valid. 

BASIC evaluates expressions according to operator precedence. Each 
arithmetic operator joining an expression has a predetermined position 
in the hierarchy of operators. The operator's position tells BASIC 
when to evaluate the operator in relation to the other operators in 
the same expression. 

In the case of nested parentheses (one set of parentheses within 
another) , BASIC evaluates the innermost expression first, then the one 
immediately outside it, and so on. The evaluation proceeds from the 
inside out until all parenthetical expressions have been evaluated. 
For example: 

B = (25+(16*(9 "2) ) ) 

Because (9"2) is the innermost parenthetical expression, BASIC 
evaluates it first, then (16*81), and then (25+1296). 

Table 2-3 lists the arithmetic operators in the order BASIC evaluates 
them: 
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Table 2-3 
Arithmetic Operator 
Precedence 



" 


HIGHEST 


- (unary minus) 




*,/ 




+ ,- 


LOWEST 



Operators shown on the same line have equal precedence. BASIC 
evaluates operators of the same precedence level from left to right. 
Note that BASIC evaluates A"B"C as (A"B)"C. 

BASIC evaluates expressions enclosed in parentheses first even when 
the operator enclosed in parentheses is on a lower precedence level 
than the operator outside the parentheses. Consider the following 
example; 

A = 15"2+12'"2-(35*8) 

BASIC evaluates this expression in five ordered steps: 



1. (35*8) = 280 

2. 15"2 = 225 

3. 12"2 = 144 

4. 225+144= 369 

5. 369-280= 89 



Parenthetical expression 

Exponentiation (left-most expression) 

Exponentiation 

Addition (left-most expression) 

Subtraction 



2.4.2 String Expressions 

BASIC provides the plus sign (+) (and the equivalent ampersand (&)) as 
an operator for string expressions. By using this operator you can 
attach one string to the end of another. This operation is called 
concatenation. 

Consider the following example: 

LISTNH 

1,0 C*^=^ " GOOD " + "BYE" 

20 PRINT C* 

30 END 

READY 
f'UWNH 

GOODBYE 

READY 

A$ + B$ or A$ & B$ both mean concatenate string B$ to the end of 
string A$ . 
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2.4.3 Relational Expressions 

A relational operator is a symbol used to compare one value of a 
variable or expression to another within a BASIC program, thus 
creating a relational expression. As explained in Section 4.1.3, use 
relational expressions with the IF THEN statement to create 
conditional transfers. 



It is 

intege 

expres 

In a 

expres 

the s 

But 

expres 

expres 



NOTE 

illegal to compare a numeric or 
r expression to a string 
sion using a relational operator, 
relational expression, both 
sions being operated on must be of 
ame data type, string or numeric, 
you can compare an integer 
sion to a floating point 
sion and vice versa. 



Table 2-4 provides examples of arithmetic relational operators and 
their meaning. 



Table 2-4 
Arithmetic Relational Operators 



OPERATOR 


EXAMPLE 


MEANING 


= 


A = B 


A 


is 


equal to B 


< 


A < B 


A 


is 


less than B 


> 


A > B 


A 


is 


greater than B 


<=, =< 


A<= B 


A 


is 


less than or equal to B 


>=, => 


A>= B 


A 


is 


greater than or equal to B 


<>, X 


AOB 


A 


is 


not equal to B 



BASIC accepts =< but converts it to <=; => to >= and >< to <>. 

When you use a relational operator to compare the value of one or more 
alphanumeric characters, you create a relational string expression. 
BASIC uses the ASCII character collating sequence to determine which 
character is greater or lesser in value than the other. (See Appendix 
C for the ASCII Table.) The comparison is made, character by 
character, left to right, according to the ASCII values until BASIC 
finds a difference in value. 

When applied to strings, relational operators compare characters for 
alphabetic sequence. Consider the following program: 

10 A'.i;-:"ABC" 
20 B$™"nEF" 
30 :n"' A$<)B$ GO TO SO 

40 i"'R:i:N'r b$ \ go to 60 

50 F'RINT A$ 
60 END 
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When BASIC executes line 30, it compares strings A$ and B$ to 
determine if A$ occurs first in alphabetic sequence. In this case, it 
does, and the program snifts control to line 50 (see Section 4.1 for 
shifting control: of a program) . If string B$ occurred before string 
A$ , program execution would continue to the next statement following 
the comparison (i.e., line 40). 

BASIC compares strings just as you compare words in alphabetical 
order. BASIC compares the first two characters, A and D. The letter 
A precedes the letter D in the ASCII table; therefore, string A$ 
precedes string B$ in alphabetic sequence. If the first two 
characters are equal, BASIC proceeds to the second two characters, 
until a difference is found. For example: 

ABC 

AEF 

BASIC compares A to A and finds them equal in value. Then BASIC 
compares B and E and finds B less than E. The comparison ends here, 
and BASIC cancludes that ABC occurs before AEF in alphabetic sequence. 

Table 2-5 provides examples of string relational operators and their 
meaning. 



Table 2-5 
String Relational Operators 



OPERATOR 


EXAMPLE 


MEANING 


= 


A$ = B$ 


Strings A? and B$ are equal 


< 


A$ < B$ 


String A$ occurs before string B$ in 
alphabetic sequence 


> 


A$ > B$ 


String A$ occurs after string B$ in 
alphabetic sequence 


<=,=< 


A$<=B$ 


String A$ is equal to or precedes string 
B$ in alphabetic sequence 


>=,=> 


A$>=B$ 


String A$ is equal to or follows string 
B$ in alphabetic sequence 


<>,>< 


A$<>B$ 


String A$ is not equal to string B$ 



When comparing strings of different lengths, BASIC treats the shorter 
string as if it were padded with trailing blanks to the length of the 
longer string. This means that "DIGITAL" is equal to "DIGITAL ". 



2.4.4 Functions 

Functions perform a series of mathematical or string operations. You 
provide the arguments, the input to the function, and the function 
computes the result. You can use functions instead of doing tedious 
calculations yourself. 
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To use a function, simply include the function name and argument list 
in any expression. The function name is usually three letters, for 
example, SQR, SIN, and POS. The argument list follows the function 
name and is enclosed in parentheses. The number and type of arguments 
are listed in the description. You use a function in an expression in 
the same way that you include a constant or a variable in an 
expression. 



The function calculates 
continues to evaluate 
result in place of the 
which demonstrate the 
the argument. 



and returns the result to BASIC. BASIC 

the expression as if you had specified the 

function. Consider the following examples 

SQR function which returns the square root of 



Program wjth SQR Function 

I...ISTNH 

10 A-:lO*SQR(49)-f5 

20 PRINT A 

READY 
RUNNH 



Program with Numeric Constant 



LISTNH 

.1.0 A-^:!. 0*7+5 

20 PRINT A 

READY 
RUNNH 



75 



75 



READY 



READY 



The square root of 49 is 7. In the example on the left, BASIC treats 
the 7 that the function returns in the same way that it treats the 7 
specified by the user in the program on the right. 

BASIC provides mathematical and string functions and, in addition, 
lets you define your own functions. See Chapter 5 for a complete 
description of all BASIC functions. 



2.5 ASSIGNING VALUES TO VARIABLES (LET STATEMENT) 

The LET Statement enables you to assign a value to a variable. The 
LET statement has the following format: 

([let]) variable = expression 

where: 

variable is assigned a new value. 

expression specifies the new value. 

The variable and expression can either both be numeric or both be 
string data types. (The keyword LET is optional.) 

The LET statement replaces the variable on the left of the equal sign 
(=) with the value on the right. Hence, the equal sign (=) signifies 
the assignment of a value and not algebraic equality. Here is an 
example: 

10 LET A-482.S 

This statement gives the value 482.5 to the variable A. You can also 
write the statement this way: 

:!.0 A^=:482«5 
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BASIC also evaluates any formula you assign: 

1.0 A-^=(XiY)-B4 

BASIC calculates the expression (X+Y)-84 and then assigns the 
resulting value to the variable A, 

In addition, BASIC converts the mode of the value to whatever the mode 
of the variable is, floating point or integer. For example, 

:10 A%«=9.5 

is the same as 

Refer to Section 2.3 for a description of variables. 

You can also assign a string expression to a variable as well as a 
numeric expression. However, you cannot mix strings and numeric 
expressions in the same LET statement. If you do, BASIC prints the 
7NUMBERS AND STRINGS MIXED (?NSM) error message. The following is an 
example of a string assignment: 

LISTNIl 

:i,0 A$=^^" HELLO" 
20 PR.TNT M> 
30 END 

RE Any 
RUNNH 

MELLO 

READY 

Refer to Sections 2.2.3 and 2.3.3 for information on strings. 

Note that you can place a LET statement anywhere in a multi-statement 
line: 

10 DIM A(7) \ :i:^:''42 \ pr;i:nt ;i: 



2 . 6 ARRAYS 

An array is like a group of variables. Each element in the array, 
like a variable, is an unknown quantity. BASIC stores the current 
value of each element of the array in a location in memory in the same 
way that it stores a value for a variable. An element of an array is 
different from a variable in that all the elements of an array share 
the same name but each variable has its own name. You specify which 
element you want in an array by specifying its subscript (see Section 
2.3.4) . 

Arrays break down into two types: lists and matrices. A list is a 
horizontal or vertical group of items (1-dimensional) ; a matrix is a 
table of items consisting of rows and columns (2~dimensional) . Both 
types can store either numeric or string data. 

You should reserve space for any array you use with a DIM statement. 
But if you do not reserve space, BASIC reserves space for arrays with 
a maximum subscript (s) of 10 (i.e., A(10) and A(10,10). 
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BASIC starts counting elements from 0, not 1; therefore, you have an 
additional element for a list and an additional row and column for a 
table. 

For example, dimensioning the array A (6) gives you seven storage areas 
in the list, not six: 



ROW 






A(0) 


1 


A(l) 


2 


A{2) 


3 


A(3) 


4 


A(4) 


5 


A(5) 


6 


A(6) 



Array B(3,3) contains storage space for 
layout of array 3(3,3): 



16 elements. This is the 



COLUMN 



ROW 
1 
2 
3 



B(0,0) 


B(0,1) 


B(0,2) 


B(0,3) 


B(1,0) 


B(l,l) 


B(l,2) 


B(l,3) 


B(2,0) 


B(2,l) 


B(2,2) 


B(2,3) 


B(3,0) 


B{3,1) 


B(3,2) 


B(3,3) 



Figure 2-1 ARRAY B 



Note that if you reference an array with the wrong number of 
subscripts, BASIC prints the 7INC0NSISTENT NUMBER OF SUBSCRIPTS (PINS) 
message. 

You should use an array instead of many variables when you are going 
to be doing the same operations to each element. This allows you to 
use loops (see Section 4.2) to perform the operation. Consider these 
two examples: 



Program with Array 

5 II :r t'i A ( :l. o > 

10 FCiR I--0 TO 10 

20 LET A ( :i: ) :::: :i: 

30 NEXT I 



Program with Separate Variables 

5 A-0 
10 B=l 

20 (^::^2 

30 U-Z 

40 t:j^^^4 

50 F""5 

60 G ■■■■■■ 6 

70 H^:::? 

SO 1^^:'B 

90 J ="9 

100 :i:^:^^io 



As you can see, the program with the array is much shorter. (See 
Section 2.6.1 for a description of the DIM statement.) with larger 
arrays the difference would • be even greater. Arrays also require less 
memory to store than an equivalent number of variables. 
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Remember that it is possible to use the same alphanumer ics to name 
both a simple variable and an array within the same program. But 
using the same name for two arrays with a different number of 
subscripts is illegal within the same program (i.e., A(5) and A(3,4) 
are illegal in the same program) . 



2.6.1 Dimensioning Arrays (DIM Statement) 

The DIM statement allows you to set up the dimensions of an array in 
your program. By using the DIM statement, you reserve storage space 
to be filled with values of either numeric or string data. 

The DIM statement has the following format: 

line number DIM list 

where: 

list is a list of array specifications separated by 
commas. Each array specification is in the form: 



variable ( integerl ([, integer2J]) 



where each integer must be a whole number constant 
(no decimal point) but does not have to have a 
percent sign. 

In the DIM list, you are specifying: 

1. The name of the array 

2. The number of subscripts (one or two) 

3. The maximum value of each subscript 
Here is an example of a DIM statement: 

10 DIM A(25) ,B(3,5) ,C%(7,16) ,D$(15) 

No array can have more than two subscripts. If you do not specify a 
subscript in the second position, only one subscript is permitted for 
that variable name in future references. 

Arrays are stored as if the right-most subscript varied the fastest. 
For example: 

:i. I) J.M i' u 2 I' 5 ) 

provides storage space like this: 

0,0 0,1 0,2 0,3 0,4 0,5 1,0 1,1 ... 2,4 2,5 

When using the DIM statement to set the maximum values for the 
subscripts, you are not obligated to fill every storage space you 
allocate. 

Because the DIM statement is not executed, you may place it anywhere 
in the program. It can also be one of several statements in a 
multi-statement line. 
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1,0 


1,1 


1,2 


1,3 


2,0 


2,1 


2,2 


2,3 


3,0 


3,1 


3,2 


3,3 
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The following example sets up storage for a matrix with 20 elements: 

.1.0 MM A(3!'4) 

The storage addresses look like this: 

0,0 0,1 0,2 0,3 0,4 

1,4 

2,4 

3,4 

Notice that reading across left to right, the second subscript 
increases first. 

As stated previously, the first element of every array begins with a 
subscript of 0. If you dimension a matrix C(6,10), you set up storage 
for 7 rows and 11 columns. The element is illustrated in the 
following program: 

LISTNH 

:10 REM MATRIX CHECK PROGRAM 

20 i:i:i:m c<&v:i.o) 

30 FOR :i:^'K) TO 6 

40 LET VAlnO):'^-! 

50 FOR Ji^^^O TO :10 

60 LET C(Oi-J)=^:J 

70 PRINT CCIyJ) ? 

80 NEXT J \ PRINT \ NEXT 1 

90 END 

READY 
RUNNH 

:l. 2 3 4 5 6 7 8 9 :i.0 

:l. 

2 

3 

4 

5 

6 



READY 

Notice that a variable has a value of until you assign it another 
value. 
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You can also dimension string arrays with the DIM statement, for 
example: 



LISTNH 




10 DIM A$(5) 




20 F(3R I-^K) TD : 


5 


30 INPUT A*<I) 




40 NEXT I 




50 PRINT A$(0) 


»A*(5) 


READY 




RUNNH 




? NAME 




r ACCOUNT 




? AGE 




!' BALANCE 




? STATUS 




? LOCATION 




NAME 1 


...GCATION 



READY 
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CHAPTER 3 
INPUT AND OUTPUT 

3.1 SUPPLYING DATA 

BASIC has three methods of supplying data to a program: 

1. The INPUT statement - requires that you interact with the 
computer while the program is running. 

2. The READ, DATA, and RESTORE statements - require that you 
build a data block within the program. 

3. The file statements - require that you manipulate files 
outside the main program. See Chapter 6 for information on 
file input and output. 



3.1.1 INPUT Statement 

The INPUT statement allows you to enter and process data while the 
program is running. 

The INPUT statement has the following format: 

INPUT variablel j[, var iable2, var iable3 , . . ."|| 
where: 

variable(s) are assigned the value(s) that you enter. 

The variables can be numeric, integer, string, or subscripted 
variables or any combination of these separated by commas. Consider 
the INPUT statement as another means of assigning values to variables. 

When you run your program, BASIC stops at the line designated by the 
INPUT statement and prints a question mark (?) . BASIC then waits for 
you to type one value for each variable requested in the INPUT 
statement. Separate the values with commas. Press the RETURN key 
after you finish typing all the values. 
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The following example requires that you type three values after the 
question mark (?) . 

IJiSTNH 

:l.O INPUT AjBi-C 

20 END 

READY 
RUNNH 

? 5!>6»7 Your Response 

READY 

The INPUT statement tells BASIC to accept the forthcoming data from 

the user terminal. bXsic accepts the values left to right^ When you 

type all the necessary data, type a line terminator ( »" ) . The 
program continues using the values you supply. Therefore, in the 
previous example 

A=5 
8=6 
C=7 

You must supply the same number of values as there are variables in 
the INPUT request. If you do not type enough data, BASIC lets you 
know by printing another question mark (?) when you press the RETURN 
key. 

LISTNH 

:l,0 INPUT AjB 

20 END 

READY 
RUNNH 



READY 

On the other hand, if you supply more values than there are variables 
to be defined, BASIC ignores the excess and prints a warning message 
to that effect. 



LISTNH 






,1.0 :i:nput 


A: 


' B y c; 


:i.5 PRINT 


Ai 


- D i- c; 


20 END 






READY 






RUNNH 







"'.' y y A y 7 y 8 

? EXCESS INPUT IGNORED AT LINE :l.O 
'S 6 7 

READY 
The extra value entered (8) is ignored. 
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The values you supply must be the same data type as the variables in 
the INPUT statement, (i.e., strings for string variables, integers for 
integer variables). You can type strings with or without quotation 
marks. For example, 

i...;i:sTNH 

:l.0 INPUT A I- E $!-{:; 
20 PRINT AfCSB* 
30 INPUT M>vB^> 
40 PRINT Mi 
50 PRINT B$ 

READY 
RIJNNH 

'!' S^DGGBi.? 
12 DOGS 
? " ARE "y FED 
ARE 

i--i;;:D 

READY 

If you include quotation marks delimiting a string, be sure to type 
both beginning and ending delimiters. If you forget the end quotation 
mark, BASIC reads the rest of the line as the entire string. You will 
also receive an 7INPUT STRING ERROR (?ISE) message. For example: 

I..ISTNH 

10 INPUT A*yB 

20 END 

READY 
RUNNH 

? "ABC J 5 

T INPUT STRING ERROR AT LINE 10 

BASIC reads ABC, 5 as the string for variable A$ , and then requests 
data for variable B. 

If you type a string without quotation marks, BASIC ignores any 
leading or trailing spaces. 

You must specify a whole number (with or without a percent sign) for 
an integer variable. If you specify a number with a decimal point or 
a fraction for an integer variable, BASIC prints the ?BAD DATA RETYPE 
(?BRT) error message and requests the input again. 

You may wonder how you can tell what kind of data to respond with when 
all you see is a question mark (?) . By adding a PRINT statement (see 
Section 3.2) you clarify the program's request for data. This is 
useful because 

1. You may not remember the number of variables or their type 
(numeric or string). 

2. Someone else may be running your program and does not know 
what the program is asking. 
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Preceding the INPUT statement with a PRINT statement is good 
programming practice. Following the INPUT statement with a PRINT 
statement allows you to see the results of your computations. 



LISTNH 

20 PRINT "PLEABE TYPE 3 INTEGERS" J 

JO INPUT BZ^CXvUX 

35' AZ---:Bxu:y„\-Tyx, 

40 PRINT AZ 
50 END 

READY 
RUNNH 

PLEASE TYPE 3 INTEGERS? 25,'50y7f, 
150 

READY 



NOTE 

The INPUT # statement (see Section 
6.3.1) is used to input values from a 
file. Logical unit is the user 
terminal. 

.1.0 INPUT *0s. Xi/YirZ 

is equivalent to 

:l.O INPUT XxYi-Z 

except that a question mark (?) does not 
print on the terminal with the first 
form. 



3.1.2 LINPUT Statement 

The LINPUT statement has essentially the same function as the INPUT 
statement. However, LINPUT is used exclusively for string data. Use 
the following format: 

LINPUT String variablel [[, string var iable2, . . .1 

where: 

string variable (s) assigned the value(s) of all the characters 

you type up to the line terminator (s) . 

All variables must be string variables in a LINPUT statement. 
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The LINPUT statement accepts and stores all characters including 
quotation marks and commas except the line terminator. The terminator 
is not stored with the string. 

LISTNH 

:i.o i...:i:nput m> 

20 PRINT B* 
30 END 

READY 
RUNNH 

? "NOWi. LOOK HEREf'f SAID JOHN. 

" N w x 1... K i-i E R i;i: ! " V s A :i: n jo h n . 

READY 

If you try to type the string shown above, in response to an INPUT 

statement, you will receive a 7EXCESS INPUT IGNORED (?EII) error 

message from BASIC. The INPUT would take the comma after the word 
"HERE!", as the delimiter of the string. 



3.1.3 READ, DATA, and RESTORE Statements 

Another way you can supply data to a program is to build a data block 
for BASIC to read during execution. This means that you do not 
interact with BASIC while the program is running. Instead, you supply 
a pool of data to the program in advance. Two statement keywords are 
involved in this process: READ and DATA. 

The READ statement has the following format: 

READ variablel([,variable2, variables, . . .1 

where: 

variable (s) are assigned the value (s) listed in the DATA 
statements. 

All variables should be separated by commas. 

10 READ Ai- 'B7,f C*y D(5)y E 

The READ statement directs BASIC to read from a list of values built 
into a data block by a DATA statement. 

The DATA statement has the following format: 

line number DATA constantl (L,constant2, constants, ., .J 

where: 

constant(s) can be numeric, integer, or string (quoted or 
unquoted) constants. 

The order of the data types of the constants must be the same as the 
data types of the variables when they are read. The format of the 
constant is the same format you use for the INPUT statement. 



3-5 



INPUT AND OUTPUT 

The program will run faster with READ and DATA statements as opposed 
to the INPUT statement simply because you do not have to wait the 
extra time it takes for BASIC to stop and request data. The data is 
already within the program. 

A READ statement causes the variables listed in it to be given the 
next available cdnstants, in sequential order, from the collection of 
data statements. BASIC has a data pointer to keep track of the data 
being read by the READ statement. Each time the READ statement 
requests data, BASIC retrieves the next available constant indicated 
by the data pointer. 

A READ statement is not legal without at least one DATA statement. 
However, you can have more than one DATA statement as long as there is 
one READ statement in the program. 

10 READ fi>>B>Cyi.\>EfF 

20 PRINT C 

30 DATA 17^25). 30 

M DATA 43 J 76!- 29 

A READ Statement can be placed anywhere in a multi-statement line. 

A DATA statement, however, must be the last or only statement on a 
line. 

If you build your READ statement with more variables than you include 
in the data block,; BASIC prints the ?OUT OF DATA (?00D) error message. 

The following is an example of a READ and DATA sequence. 

:l. R £ A D A J B 1- C; :l. I- D 2 v E 4 v Y $ n Z * y Z 1. « 

20 DA T A 2 . 3 y ■•■■ 4 , 2 6 5 4 » 3 k •- 6 i. :l. 2 i- " C) A T' " j D G 9 " M U Si) E " 

3 p i^' :i; N T A K B n c :i, 5. 1:1 2 y I:- 4 » Y $ » Z * c Z :l, * 

BASIC assigns values as follows: 

A=2.3 

B=-4.2654 

Cl=3 

D2=-6 

E4=12 

Y$=CAT 

Z$=DOG 

Z1$=M0USE 

When you run the program, you get the following results: 

RUNNH 

2,3 ■-4.26S4 3 -^ :12 

CAT DOG MOUSE 

READY 

READ and DATA are useful to initialize the values of variables and 
arrays at the beginning of your program. To do this place your READ 
statements at the beginning of the program. You can put the DATA 
statements anywhere in the program but it is useful to put them all at 
the end of the program just before the END statement. 
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You can read a numeric constant into a string variable. For example: 

LISTNH 
:l.0 READ A* 
20 PRINT M> 
30 DATA 8*25 
40 END 

READY 
RUNNH 

8,25 

READY 

But if you try reading a string constant into a numeric variable or a 
floating point number into an integer variable, BASIC prints the ?BAD 
DATA READ (?BDR) error message. 

In some programs you may need to read the same data more than once. 
BASIC provides the RESTORE statement for this purpose. 

The format of the RESTORE statement is: 

RESTORE 

The RESTORE statement resets the data pointer to the beginning of the 
first DATA statement in the program. The values are read as though 
for the first time; therefore, the same variable names may be used 
the second time through the data. Consider this example: 

:l.O READ Es^CfD 

20 RESTORE 

30 READ EH-i-G 

40 DATA 6:':!ii'Av7!'9'j2 

50 END 

The READ statement in line 10 reads the first three values in the DATA 
statement, line 40. 

B=6 
C=3 
D=4 

Then the RESTORE statement on line 20 resets the pointer to the 
beginning of line 40, so that the second READ on line 30 reads the 
first three values. BASIC reads these values as though for the first 
time . 

E=6 
F=3 
G=4 

If RESTORE was not there, READ on line 30 would read the last three 
values. 

E=7 
F=9 
G=2 
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NOTE 



The RESTORE # statement (see Section 
6.3.4) is used to restore files to their 
beginning. 



3.2 CHECKING OUTPUT (PRINT STATEMENT) 

Another useful statement to include in your program is the PRINT 
statement. The PRINT statement has the following format: 

PRINT jlistj) 

where: 

list contains the items to be printed. They can be any 
string or numeric expressions or TAB functions (see 
Section 3.2.3) and can be separated by commas or 
semicolons (see Section 3.2.1). 

The PRINT statement prints a list of elements on the terminal when you 
execute your program. In this way, you can see the results of your 
computations or add comments to clarify your requests for input. (The 
PRINT statement can be placed anywhere in a multi-statement line.) 

Using the PRINT statement without arguments causes a blank line to 
appear in the output. 

LISTNH 

1.0 pr:i:nt "ti-i:i:s example i...eaues a blank l:i:ne" 

20 PRINT 

30 pr:i:nt "between two lines" 

•40 END 

READY 
RUNNH 

THIS EXAMPLE LEAVES A BLANK LINE 

BETWEEN TWO LINES 

READY 

You can print blank lines to improve the readability of your output. 

When an element in the list is an expression rather than a simple 
variable or constant, BASIC evaluates the expression before printing 
the value. Therefore, the PRINT statement performs two functions in 
one, calculating expressions and printing the results. For example: 

LISTNH 

10 A~:45 \ B---5:5 
20 PRINT A+B 
30 END 

READY 
RUNNH 

:!.00 

READY 
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After running this program, BASIC prints 100 on your terminal, not 
45+55. If you put quotes around the variables this is what happens: 

LISTNH 

20 PR'. TNT "A*-B" 
30 END 

READY 
RUNNH 

A+B 

READY 

If you plan to have someone else run your program, you can clarify 
your requests for input with a PRINT statement. (Refer to Section 
3.1.1 for more information on the INPUT statement.) Include literal 
strings (Section 2.2.3) as in the following example: 

:l.0 PRINT "WHAT ARE YOUR MALUES OF XcYs AND Z"5 

20 INPUT Xi-Yi-Z 

30 I... I!i: T R "= S Q R ( X "• 2 •}• Y " 2 -f Z " 2 ) 

40 PRINT "THE RADIUS UECTOR EQUALS"? 

4;'.5 PRINT R 

50 END 

When you run this program, BASIC prints: 

RUNNH 

WHAT ARE YOUR VALUES OF Xi-YvZ? 25 » 40 » 50 
THE RADIUS VECTOR EQUALS 6 S. 7386 

READY 

Notice that you enclose the strings in quotation marks so that BASIC 
prints them exactly as you type them in. In line 40 of the previous 
example, a semicolon ends the list of expressions. Placing a 
semicolon or a comma after the string makes BASIC print the 
expressions in the next PRINT statement (line 45) on the same line as 
the string. If the separator is not there, BASIC performs a carriage 
return/line feed and begins printing in the first column of the next 
line. 

THE RADIUS VECTOR EQUALS 
68 . 7386 

See Section 3.2.1 for more information on commas and semicolons. 



3.2.1 Printing Zones - The Comma and the Semicolon 

A terminal line consists of an integral number of zones, each zone 
containing 14 spaces. When you use the PRINT statement, you can 
control the placement of your output within these zones by using the 
legal separators, comma {,) and semicolon (;). (See Section 7.1 for a 
description of the PRINT USING statement for more flexibility in 
formatting output.) 
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The comma signals BASIC to move the printing element to the beginning 
of the next print zone and begin printing there. If the last print 
zone on the line is filled, BASIC prints the output beginning at the 
first print zone on the next line. For example: 

i...;i:sTNH 

5 INPUT AjByCvDvEi-F 
.1.0 PRINT Ai-BvCvDyEi-F 
20 END 

READY 
RUNNH 



? 5v:l.0i':l.5i.20i'25?30 
5 :l.0 

30 



20 



READY 

If .you place more than one comma between list elements, you will skip 
one print zone for each extra comma. The following example prints the 
value of A in the first zone and the value of B in the third zone. 



...ISTNH 

1.0 A-S \ B-:liO 
:::0 PRINT Ay 1.B 
^0 END 



READY 
RUNNH 



:EADY 



To print an output line in a more compact format, use the semicolon as 
the separator between variables. A semicolon in a PRINT statement 
causes no motion of the printing element. 

L ISTNH 

10 A=::S \ B=^^10 
20 PRINT A5B 
30 END 

READY 
RUNNH 

5 :l.0 

READY 

Placing a comma or semicolon after the last item in a PRINT statement 
causes the terminal printer to remain at the same line in anticipation 
of another PRINT statement. 
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In the following example, BASIC prints the current values of X,Y and Z 
on the same terminal line because a comma appears as the last item in 
line 20: 



L:i:srNH 








10 INPUT 


X> 


'Yp 


2 


20 pr:i:nt 


X> 


pY. 




30 PRINT 


z 






40 END 








READY 








RUNNH 








? 5y:U)i-:l.S 


5 







:i.o 



READY 



The following example illustrates the three options you have for 
placing either a comma, a semicolon, or nothing after the last item of 
the PRINT statement: 



i...:i:sTNH 




10 FOR ]J-1 TO 


10 


20 pr:i:nt :i: 




30 NEXT ;i: \ pr 


u:ht 


40 FOR J==l to 


10 


50 pr:i:nt j> 




60 next J \ Pf 


U.HT 


70 FOR K--::^l TO 


10 


80 PRINT Ki! 




90 NEXT K 




100 END 




READY 




RUNNH 





3 
4 
5 
6 
7 
8 
9 



2 3 A '5 

7 & 9 10 

5 6 7 B 9 10 



;EADY 
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Commas and semicolons also allow you to control the placement of 
string output. For example: 

LISTNH 

:i.o pr:i:nt "f:i:rst zone" ».-" third zone"!-!' "f:i:fth zone" 

20 END 

READY 
RUNNH 

f:i:rst zone th:i;rd zone fifth zone 

READY 

Because of the extra comma between strings, BASIC skips every other 
printing zone before stopping to print each string. (Placing a 
semicolon between string constants is optional.) 



3.2.2 Output Format for Numbers and Strings 

BASIC prints numbers and strings according to a specific format. 
Strings are printed exactly as you type them with no leading or 
trailing spaces. (Quotation marks are not printed unless delimited by 
another pair.) 

LISTNH 

10 PRINT 'PRINTING "QUOTATION" MARKS' 

20 END 

READY 
RfJNNH 

f ■■ r^ :i: n t i n o " o u o t a t i o n " marks 

READY 

BASIC precedes negative numbers with a minus sign and positive numbers 
with a space. A space is always placed after the right-most digit of 
a number. BASIC does not print a percent sign after printing an 
integer . 

LISTNH 

10 PRINT •■••I 

20 PRINT 25 5 50% 

30 END 

READY 
RUNNH 
- :l. 
25 50 

READY 

BASIC does not add any spaces to strings. 

The number of spaces occupied by the decimal representation of a 
number varies according to the magnitude and type of the number. 
BASIC prints the results of computations as decimal numbers either 
integer or numeric if they are within the range 

.01<n<999999 

where n is the number BASIC prints. Otherwise, BASIC prints them in E 
notation. 
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BASIC prints decimal digits as illustrated below: 

Value You Type Value BASIC Prints 



.01 
.0099 
999999 
1000000 



.01 
9.90000E~03 
999999 
1.00000E06 



If more than six digits are generated during a computation, BASIC 
prints the result of that computation in E notation. 

The following example shows how BASIC prints various numbers: 



i...;i:sTNH 






:i.o FOR :i>^^ 


:i. TO 


20 


20 PRINT : 


2"(- 


:c> i.:i:i'2"i: 


30 HEXT 1 






40 END 






READY 






RUNNH 




1 

2 
3 


.2S 
.:l.25 




.0625 




4 


.03:1.25 




5 


.0:15625 




6 


7.8:l.250E- 


-03 


7 


3.90625E' 


-03 


8 


:i.. 953:1. 3E- 


-03 


9 


9.76563E- 


-04 


.1.0 


4.8B2B:l,E- 


-04 


:l. :l. 


2. 44:1. 4:1. E- 


-04 


:l.2 


:l. . 22070E' 


-04 


:l. 3 


6.:l.0352E 


"05 


:l.4 


3.05:i.76E 


-05 


:l.5 


:l. .52588E 


-05 


16 


7.62939E 


-06 


17 


3.8:l.470E 


"■•06 


:l.8 


:l. . 90735E 


-06 


:l.9 


9.53A74E 


-07 


20 



4 

8 

:l.6 

32 

64 

:l.28 

256 

5:1.2 

:l.024 

2048 

4096 

8:1.92 

:l.6384 

32768 

65536 

:l. 3:1. 072 

262:1.44 

524288 

:l. .04858Ef06 



READY 



3.2.3 Printing with the TAB Function 

Another method of positioning the terminal printer is to use the TAB 
function in conjunction with the PRINT statement. 

This function has the following format: 

PRINT TAB (expression) ; 

where expression is the number of the desired printing position. 
BASIC evaluates the expression and truncates the result to an integer. 

The TAB function does not cause anything to be printed; it positions 
the terminal print head. Then the PRINT statement takes over and 
begins printing in the column denoted by the argument with the TAB. 
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With the TAB function, you move the terminal printer to the right to 
any desired column. The first column at the left margin is column 0. 
Therefore, n can be to whatever the right margin is on your 
terminal, or anywhere in between. 

The TAB function can only be used to position the terminal printer 
from left to right, not right to left. If you specify a column that 
is to the left of the current column position BASIC ignores the TAB. 

You can use more than one TAB function in the same PRINT statement by 
placing them between elements. 

The following is an example of several TAB functions in conjunction 
with one PRINT statement: 

LISTNH 

:!. F' R :i: N T "NAM E " 5 T A B < :l. 5 ) 5 " A D i:i R E S B " TI' A B < 3 ) 5 " f ■■ l-l N E N » " 

20 END 

FilEADY 
RUNNH 



NAME 
READY 



t 



ADDRESS 



t 



HONE NO. 



t 



Column Column 15 Column 30 
Without tabs 15 and 30, BASIC would print 

RUNNH 

NAMEADDRESSPHONE NO. 

READY 
Here is an example of printing numbers: 

LISTNH 

10 A-:l,00 \ B-29 \ C-35 



.■;.v 

10 END 

READY 
RUNNH 



:i: N T A 5 TAB ( .1. ) i B > J A B ( 4 ) ? C 



100 29 

READY 

t t 

Column Column 10 



3S 



Column 40 



Notice that semicolons act as separators in the preceding example. 
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Compare the following examples. The first one uses commas as 
separators; the second one uses semicolons. 

i...:i:sTNH 
.1,0 A^"-:i.oo 

20 B::::200 

30 (:;-^300 

40 l"'R INT A V TMf <.7),B, TMf U.A) >C 

READY 
RUNNH 

:l.00 200 300 

READY 

The extra commas move the printer to the next zone (see Section 
3.2.1), then the printer is past the position indicated by TAB and 
BASIC, ignores the TAR. 

Change line 40 to: 

4 F''R :i: NT A i TAB < 7 ) 5 B 5T AB < :l 4 ) 5 C 
RUNNH 

:l,00 200 300 

READY 
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CHAPTER 4 
CONTROL STATEMENTS 



4.1 SHIFTING CONTROL OF THE PROGRAM 

In a BASIC program, control ordinarily passes from one statement to 
the next statement in ascending order according to line numbers. 

:l.O A^:^^5*942 \ B:--::116/7 \ C-AjKB 

20 pr:i:nt "c ■■■■= '•>€ 

30 PRINT 
40 END 

However, you may alter the normal sequence of statement execution to: 

1. Repeat a set of statements 

2. Stop and check the values 

3. Terminate the program 

You can divert execution from the main stream to another portion of a 
program; execution will continue from that point. This transferring 
of control is known as branching. 

The following sections describe the statements that allow you to shift 
control and change the sequence of execution. 



4.1.1 Unconditional Transfer (GO TO Statement) 

The GO TO statement causes the statement which it identifies to be 
executed next, regardless of that statement's position within the 
program. 

The format of the GO TO statement is: 

GO TO line number 
where: 

line number specifies the next program line to be executed. 

The specified line number can be smaller or larger than the line 
number of the GO TO statement. Thus, you have the option to skip any 
number of lines in either direction. 

BASIC executes the statement at the line number specified by GO TO and 
continues the program from that point. Consider the example: 

30 00 TO 110 
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When BASIC executes line 30, it branches control to line 110. BASIC 
interprets the statement exactly as it is written. Go to line 110. 
It is a simple imperative instruction. There are no rules or 
conditions governing the transfer. 

Consider the following sample program with a GO TO statement: 

LISTNH 

:l.0 A -2 

20 GO TO AO 

30 A™<;>C!R(Ai:l.4) 

40 pr:i:nt AjAjka 

50 END 

P:EADY 
RUNNH 



F^EADY 
In this program, control passes in the following sequence: 

1. BASIC starts at line 10 and assigns the value 2 to the 
variable A. 

2. Line 20 sends BASIC to line 40. 

3. BASIC executes the PRINT statement. 

4. BASIC ends the program at line 50. 

Notice that line 30 is never executed. 

Make sure that the GO TO statement is either the only statement on the 
line or the last; statement in a multi-statement line. If you place a 
GO TO in the middle of a multi-statement line, BASIC does not execute 
the rest of the statements on the line. 

25 A^:^:ATN<B2) \ GO TO 50 \ PRICNT A 

BASIC never executes the PRINT statement on line 25 because the GO TO 
statement shifts control to line 50. 

If you specify a non-executable statement in a GO TO statement such as 
a REM statement, BASIC transfers control to the next executable 
statement after the one specified. For example: 

I....TSTNH 

1.0 A:- 2 

20 GO TO 40 

30 A:^::SaR(A-i-:l.4) 

40 REM NOW PRINT THE RESULTS 

50 PRINT A»A*A 

60 END 

READY 
RUNNH 



READY 

At line 20, BASIC transfers control to line 40. Line 40 is a REM 
statement, a nonexecutable statement. BASIC executes the next 
sequential statement, line 50. So that the statement GO TO 40 in this 
case is equivalent to a statement GO TO 50. 
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NOTE 



Before you use the GO TO statement, be 
sure you know how to use the CTRL/C key 
command to stop your program from 
running in an infinite loop. See 
Section 9.1 for information on CTRL/C. 



4.1.2 Multiple Branching (ON GO TO and ON THEN Statements) 

The ON GO TO statement is another means of transferring control within 
a program. Like the GO TO statement, ON GO TO allows you to transfer 
control to another line of the program; however, ON GO TO also allows 
you to specify several line numbers as alternatives depending on the 
result of a numeric expression. 

The ON GO TO statement has the following format: 

ON expression fGO TO^line numberl ([,line number2,...J 
\then j 

where the expression is any le^al BASIC numeric expression. The 
keywords GO TO and THEN are interchangeable. Line numbers must be 
separated by commas. 



The ON 


GO TO 


its depende 


executes the 


expression. 


If the 


value 


the f: 


irst 1 


equal 1 


to 2, : 


list; 


and 


number 


of li 


OUT OF 


RANGE 



statement i 
ncy on the 

ON GO TO 
The value 

of the expr 
ine number i 
BASIC passes 

so on. I 
ne numbers i 

(?CVO) erro 



s also known as a c 

value of the nume 

statement, it fir 

is then truncated 

ession is equal to 

n the list; if the 

control to the se 

f the value is less 

n the list, BASIC p 

r message. 



omputed GO 
ric expres 
st evalua 

to intege 
1, BASIC p 

value of 
cond line 

than 1 or 
rints the 



TO bee 
sion. Wh 
tes the 
r (if nee 
asses con 
the expre 
number 
greater 
PCONTROL 



ause of 
en BASIC 

numeric 
essary) . 
trol to 
ssion is 

in the 
than the 
VARIABLE 



Consider this example: 

200 ON A GO TO S0»20i. :l.00i.300 
If A=l, go to line 50 (first "line number in the list). 



If 
If 
If 



A=2, 
A=3, 
A=4, 



If A<1 

or 
If A>4 



go to line 20 (second line number in the list) . 
go to line 100 (third line number in the list) . 
go to line 300 (fourth line number in the list) 

BASIC prints an error message. 



As you can see, the line numbers in the list can be in any order, 



4.1.3 Conditional Transfer (IF THEN and IF GO TO Statements) 

The IF THEN Statement provides a transfer of control depending on the 
truth of a relational expression (see Section 2.4.3). 



The format of the IF THEN statement isi 



|G0 TO 
IF relational expression<THEN 1 

(then s 



!ion<l 



line number^ 
ine number > 
tatement ) 
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where: 

relational expression 

line number 
statement 



is the condition to be tested. It can 
either be an arithmetic or string 
relational expression. 

specifies the line to be executed if the 
condition is true. 

is executed if the condition is true. 
The statement can be any BASIC statement 
including another IF THEN statement. 

If you specify a line number and the value of the relational 
expression is true, then control is transferred to the specified line 
number. For example: 

20 :i:F A-<i THEN 200 

when A is equal to 3 (the relation is true) , control passes to line 
200. The implication is that when A is not equal to 3, control does 
not pass to line 200. Instead, control passes to the next sequential 
statement after line 20. 

You can also use string expressions as in this example: 

300 IF C*^^:^" OUTPUT" GO TO :I.O 

If the value of the string variable C$ is equal to the ASCII value of 
"OUTPUT", control passes to line 10. See Section 2.4.3 for string 
relational expressions. 

If you specify a statement after THEN and the value of the relational 
expression is trjje, the statement is executed. If the value of the 
relational expression is false, the statement is not executed and 
control is passed to the next program line. For example: 

10 Xr fV-:l. THEN PRINT "A::'^:l. " 
Here is a complete program illustrating the IF THEN statement: 

LISTNH 

5 REM PROGRAM TO COMPARE TWO NUMBERS 

10 PRINT "INPUT VALUE OF A 'S \ INPUT A 

20 PRINT "INPUT VALUE OF B"5 \ INPUT B 

;^0 IF A^=:B THEN PRINT "A EQUALS B" \ GO TO SO 

40 IF A<B THEN 60 

50 PRINT "B IS LESS THAN A" \ GO TO 80 

60 r-'RINT « A IS LESS THAN B" 

SO END 

READY 
RUNNH 

INPUT VALUE OF A? ? 
INPUT VALUE OF B? ••■•3 
B IS LESS THAN A 

READY 

Care should be taken placing the IF THEN statement in a 
multi-statement line. The following rules govern the transfer of 
control: 
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1. If THEN is followed by a line number: 

If the THEN clause contains a line number and the condition 
is true, control passes to that line number. If, however, 
the condition is false, control passes to the statement 
following the THEN clause. For example: 

I...ISTNH 

:L0 A-5 

20 IF A-2 THEN 30 \ PRINT A \ GO TO 40 

30 PRINT "THE CONDITION IB TRUE." 

40 END 

READY 
RUNNH 



READY 

Because the condition is false, BASIC executes the statement 
following the THEN clause. If you interpret the backslash, 
in this case, to mean "otherwise", you can see the 
alternatives: 

If A is equal to 2, transfer control to line 30; 
otherwise, print the value of A and then transfer 
control to line 40. 

If THEN is followed by a statement; 

Execution of the physically last THEN clause determines 
the execution of the rest of the statements on the line. 
If the THEN clause is executed, the next statement or 
statements following it are executed. If the THEN 
clause is n9t executed, the statements following it are 
not executed, and control passes to the next line 
number. For example: 

5 INPUT A 

:l,0 If- A^-:l, THEN PRINT A 5 \ PRINT "TRUE CASE" \ (30 TO 20 

.1.5 PRINT "NOT^^'l " 

20 END 

If A is equal to 1, BASIC prints: 

RUNNH 

? :l. 

:l. TRUE CASE 

READY 
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Because the relation is true, BASIC executes the rest of line 
20, which includes a branch to line 20. 

If A is not equal to 1, BASIC prints: 
RIJNNH 



HQT---1 

READY 

Because the relation is false, BASIC skips the rest of the 
statements on line 10 following the keyword THEN and proceeds 
to execute line 15. 

All other THEN clauses are considered to be followed by the 
next line of the program: 

:l.O INPUT AcBi-C 

20 IF A>B THEN IF KKC THEN PRINT "B<C" \ GO TO 30 

25 PRINT "A<-B OR E>-C" 

30 END 

The statement GO TO 30 is executed only if A is greater than 
B and B is less than C. If A is either less than or equal to 
B or B is greater than or equal to C, then line 25 is 
executed. 

RDNNH 

? :L0»I5y20 

Pf:->B OR B >::=(:; 

READY 



4.2 EXECUTION OF LOOPS 

At some point, you may find that you are typing the same statements 
many times in a program. instead of typing them over and over again, 
make BASIC execute them over and over again. You can accomplish this 
by building a loop in your program. 

A loop is the repeated execution of a set of statements. Placing a 
loop in a program saves you from duplicating and enlarging a program 
unnecessarily. 
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For example, consider the following two programs to print the numbers 
from 1 to 10. 



Program Without 


Program With 


Loop 


Loop 


l.,.:i:STNH 


l;i:btnh 


.1.0 PR. TNT .1. 


10 :i:%™:i.x 


20 pr:i:nt 2 


20 print ix 


30 PIa'TNT 3 


30 iZ''::rx\r/. 


40 pr:i:nt a 


40 :i:f :i:%<:~:i.O/(; 


50 pr:i:nt s 


50 END 


60 print 6 




70 print 7 


ready 


80 pr:i:nt b 


RUNNH 


90 print.? 




:i.oo pr:i:nt :i.o 


:l. 


:l.:l.O EHli 


2 
3 
4 


READY 


RUNNH 


5 



THEN 20 



A 
.1. 7 

2 B 

3 9 

4 .1.0 
5 

6 READY 

7 

8 

9 

.1.0 

READY 

The program on the right first initializes a control variable, 1%, in 
line 10. It then executes the body of the loop, line 20. Finally, it 
increments the control variable in line 30 and compares it to a final 
value in line 50 . 

The following section shows you how to build a loop with the FOR and 
NEXT statements. 



4.2.1 FOR and NEXT Statements 

Without some sort of terminating condition, a program can run through 
a loop indefinitely. The FOR and NEXT statements allow you to set up 
a loop wherein BASIC tests for a condition automatically each time it 
runs through the loop. You decide how many times you want the loop to 
run, and you set the terminating condition. 

The FOR statement has the following format: 

FOR variable = exprl TO expr2([sTEP exprij 
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where: 

variable is a simple numeric variable known as the loop index. 

exprl is the initial value of the index and can be any 
numeric expression. 

expr2 is the terminating condition and can be any numeric 
expression. 

expr3 is the incremental value of the index. The STEP size 
is optional; if specified, it can be positive or 
negative. If not specified, the default is +1. Expr3 
can be any numeric expression. 

The NEXT statement has the following format: 

NEXT v'ariable 

where: 

variable must be the same variable named in the corresponding 
FOR statement. 

For example: 

20 F-OFi: M = 30 TO 90 STEF' 7, 
50 NEXT M 

M is given the initial value of 30, and BASIC tests to determine if M 
is less than or equal to the terminating value of 90. The loop is 
executed because M is less than 90. When the NEXT statement is 
encountered, the value of M is incremented by 3. BASIC tests again to 
see if M is greater than 90. When BASIC reaches the NEXT statement 
and M has a value of 87, BASIC adds 3 to M and tests the result 
against the terminating value. The result, 90, is not greater than 
the terminating value, also 90, so BASIC executes the loop again. 
When BASIC reached the NEXT statement again, it adds 3 to M, producing 
93. Because this is greater than the terminating value, BASIC 
terminates the loop. BASIC terminates the loop by subtracting 3 from 
M, which returns M to its last value used in the loop, 90, and then by 
transferring control to the next sequential statement after the NEXT 
statement. 

The FOR and NEXT statements must be used together. You cannot use one 
without the other. If you do, an error condition results. The FOR 
statement defines the beginning of the loop; the NEXT statement 
defines the end. You are actuallly building a counter in your program 
to determine the number of times the loop is to execute. 
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Place the statements you want repeated in between the FOR and NEXT 
statements. Consider the following example: 

l:i:btnh 

:1.0 FOR IX ■■^~~ 17. TO :i.0% 

20 pr:i:nt ix» 

30 NEXT IZ 

40 PRINT :i;% 

50 END 

READY 
RUNNH 



3 

4 

5 

6 

7 

8 

9 

.1.0 

:1.0 

READY 

In this program, the initial value of the index variable is 1. The 
terminating value is 10, and the STEP size is +1 (the default). 

Every time BASIC goes to line 30, it increments the loop index by 1 
(the STEP size) until the terminating condition is met. Therefore, 
this program prints the values of 1% ten times. When the loop is 
completed, execution proceeds to line 40. 

Notice that when control passes from the loop, the last value of the 
loop variable is retained. Although BASIC increments the control 
variable until it is greater than the terminating value, BASIC 
subtracts the STEP value to return the control variable to the value 
last used in the body of the loop. Therefore, 1% equals 10 on line 
40. 

You can modify the index variable within the loop. 

:l.0 FOR :i: =:• 2 to 44 iSTEF' 2 
20 LET I ■■:■■■■ 44 

30 NEXT :i: 

40 END 

The loop in this program only executes once, because at line 20 the 
value of I is changed to 44 and the terminating condition is reached. 

If the initial value of the index variable is greater than the 
terminal value, the loop is never executed. 

:i.o f-oi-;; :i: -^ 20 to 2 s'T'ef' 2 
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This loop cannot execute because you cannot decrease 20 to 2 with 
increments of +2. You can, however, accomplish this with increments 
of -2. 

:i.o FOR :i: ^■■■■- 20 to 2 step -2 

The STEP size can also be a number with a fractional part. 

:i.o fof;; k - :i. .5 to 7.7 step :i, .32 

NOTE 

You cannot transfer control into a loop 
that has not been initialized with a FOR 
statement. The following is illegal in 
a* BASIC program: 

10 REM THIS IS ILLEGAL 

20- GO TO 40 

30 FOR I:^^^! TO 20 

40 PRINT I 

50 NEXT I 

60 END 

Line 20 shifts control to line 40, 
bypassing line 30. This is illegal in 
BASIC. 

You can place the FOR and NEXT statements anywhere in a 
multi-statement line. For example: 



LISTNH 

:l.0 FOR I ::=:!. TO 10 STEP S \ NEXT I \ PRINT 

20 END 

READY 
RUNNH 



READY 

The calculation of the index values (initial, final, and step size) is 
subject to precision limitations inherent in the computer. These 
index values are represented in the computer by binary numbers. When 
the values are integer, they can be represented exactly in binary; 
however, it is not always possible to represent decimal values exactly 
in binary when they contain a fractional part. Consider the following 
example: 



LISTNH 
20 FOR X-0 
30 T::^^X+T 
40 NEXT X 
50 PRINT "X 


TO 

:::: " i 


10 
^Xi- ' 


&1EF 


T 


READY 
RUNNH 










X^:^ 9.9 




J.:: 


495 




READY 
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The loop established in line 20 executes 100 times instead of 101 
because the internal value of 0.1 is not exactly 0.1. After the 100th 
execution of the loop and X is incremented, X is not exactly equal to 
10. It is slightly larger than 10, so the loop stops. Whenever 
possible, it is advisable to use indices that have integer values 
because the loop will then be executed the correct number of times. 

BASIC evaluates all expressions in the FOR statement before it assigns 
a value to the loop variable. For example: 



:i.o :i:^-:i.o 
20 F'OR :i 
30 NEXT 



TO :i:*2 



BASIC evaluates 1*2 in line 20 and calculates a value of 20 before 
assigns a value of 1 to I. The previous example is equivalent to 



it 



20 FOR T = :l. 
30 NEXT I 



TO :l.0*2 



4.2.2 Nested Loops 

A loop can contain one or more loops provided that each inner loop is 
completely contained within the outer loop. Using one loop within 
another is called nesting. Each loop within a nest must contain its 
own FOR and NEXT statements, and the inner loop must terminate before 
the outer loop, i.e., the one that starts first must be completed 
last. Loops cannot overlap. 

The following example shows legal and illegal forms of nested loops: 

LEGAL LEGAL ILLEGAL 



(— 10 FOR Aa^-:I.% to 
r 20 FOR B^-2 TO 2<: 
•- 30 NEXT B 

•—40 NEXT AX 



:l.0% 



10 


FOR A%= 


1. TO 


:l. 


20 


FOR B^::^2 


TO 


;?o 


30 


NEXT B 






40 


FOR C/i- 


i TO 


30 


50 


FOR rM^=4 


TO 


40 


60 


FOR E'^^^S 


TO 


;;o 


70 


NEXT E 






SO 


NEXT D 






90 


ne:xt CX 






100 NEXT A 


;:; 





[— 10 


F-OR n^^=l 


TO 


1 


r 20 


FOR N^^:^2 


TO 


20 


L- 30 


NEXT M 






L 40 


NEXT N 
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The following is a program with a nested loops 



LISTNH 




1.0 PRINT 


m: " » • J " 


15 PRINT 




20 FOR I%-:L to 2 


30 FOR JZ:-1 TO 3 


40 PRINT 


I%yJ% 


50 NEXT 


J% 


60 NEXT 


1% 


70 END 




READY 




RUNNH 




I 


J 


:l. 


1 


:l, 


2 


1 


3 
■1 


2 


.1. 
2 


2 


3 



INSIDE LOOP > OUTSIDE LOOP 



INSIDE LOOP 

OUTSIDE LOOP 

INSIDE LOOP 



READY 



FOR and NEXT statements are commonly used to initialize arrays as 
illustrated in this examples 



LISTNH 

5 DIM X(5!.:l.0) 

:l.0 FOR A :=■:!. TO 5 

20 FOR B==2 TO 10 BTEP 2 

30 X ((>, 9 B )■■■:■■ A-iB 

40 NEXT B 

50 NEXT A 

55 

60 END 

READY 
RUNNH 



READY 



4.3 STOPPING PROGRAM EXECUTION (END AND STOP STATEMENTS) 
There are three methods of halting program execution: 

1. Using the END statement 

2. Executing the program line with the highest line number (the 
end of the program) 

3. Using the STOP statement 

The END statement has the following formats 
END 
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The END statement is optional. If you include an END, it must have 
the largest line number in the program. Transferring control to an 
END statement via a GO TO or IF THEN statement terminates program 
execution and closes all files (see Chapter 6 for a description of 
data files) . 

An END statement does not cause BASIC to print a message on the 
terminal. If a message is 'desired, use the STOP statement. 

If you do not execute a STOP or an END statement in a program, 
executing the last statement of the program terminates program 
execution and closes all files. This is equivalent to executing an 
END statement. 

The STOP statement has the following format: 

STOP 

This statement causes program execution to halt, at which point BASIC 
prints a message: 

STOP AT LINE n 

where n is the line number of the STOP statement. 

You can place several STOP statements at various points in a single 
program. The flow of logic can then be seen throughout the program. 
This is a useful debugging tool in determining program flow in large 
programs. 

After execution of a STOP statement, you can print variables, change 
values of variables, and then continue execution with an immediate 
mode GO TO statement. (See Section 1.8 for a discussion of immediate 
mode commands.) 

The STOP statement halts execution but it does not close files. To 
cause BASIC to close files after program termination, use the END 
statement or no terminating statement. 



4.4 SUBROUTINES 

A subroutine is a block of statements that performs an operation and 
then returns control of the program to the point from which it came. 
Including a subroutine in a program allows you to repeat a procedure 
in several places without writing the procedure several times. 

Subroutines are like functions (Section 2.4.4) in that you reference 
them in another pact of the program. However, unlike functions, you 
do not name a subroutine or specify an argument. Instead, you include 
the GOSUB and RETURN statements which transfer control of the program 
to a subroutine and then return control from that subroutine to the 
normal course of program execution. 

In BASIC, you can enter more than one subroutine in the same program. 
Subroutines are easier to locate (for debugging purposes) if you place 
them near the end of the program, before any DATA statements, and 
before the END statement (if present). Also, assign distinctive line 
numbers to subroutines. For example, if the main program has line 
numbers ranging from 10 to 190, begin the subroutines with line 
numbers 200, 300, 400 and so on. 
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The first line of a subroutine can be any legal BASIC statement 
including a REM statement. Note that you do not have to transfer to 
the first line of the subroutine. Instead, you can include several 
entry points and returns in and out of the same subroutine. 
Similarly, you can nest subroutines (one subroutine within another) up 
to 20 levels. 

The following sections describe the building of subroutines with the 
GOSUB and RETURN statements. For more flexibility in using 
subroutines, see Section 4.4.2, the ON GOSUB statement. 



4.4.1 GOSUB and RETURN Statements 

The GOSUB statement has the following format: 

GOSUB line number 
where: 

line number specifies the entry point in the subroutine. 

When BASIC executes the GOSUB statement, it stores the location of the 
next sequential statement after the GOSUB statement and then it 
transfers control to the line specified. 

BASIC executes the subroutine until it encounters a RETURN statement, 

which causes BASIC to transfer control back to the statement 

immediately following the calling GOSUB statement. (A subroutine can 
exit only through a RETURN statement.) 

The RETURN statement has the following format; 

RETURN 

BASIC has a table where it can store up to 20 locations of statements 
following a GOSUB. Each time a GOSUB is executed, BASIC stores 
another location on the list. Each time a RETURN is executed, BASIC 
retrieves the last location entered on the list and transfers control 
to it. In this way, no matter how many subroutines there are or how 
many times they are called, BASIC always knows where to transfer 
control. For example: 



i,..:ni 


5TNH 










.1.0 


INPUT 


A y B » t 


1, 






:l,5 


IF A— 


■9999 


GO 


•fO 


70 


20 


GOSUB 


40 








30 


PRINT 


D 








3S 


GO TO 


:i.o 








40 


REM 


•T'HIS 


IS 


A <i 


5Ub: 


50 


D-A*Ei- 


■c 








60 


RETURN 








70 


END 










READY 










RUNNH 










? V 


iKlO.IS 










3l 

'P ... 


5 

.9999,0 


>>0 









READI 
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When BASIC executes line 2i0 , it stores the location of the next 
statement, PRINT D. Then it transfers control to line 40. When it 
reaches the RETURN statement at line 60, it transfers control to the 
statement after the GOSUB i(e.g., the PRINT D statement). 



The following is an exampl 



e of several calls to the same subroutine: 



:l. 
20 
30 
40 
50 
70 
80 
90 
95 
:l.00 



A.::.0 

GOSUB 
GOSUB 
GOSUB 
60 TO 
FOI-i; I--- 
LET fr-: 
NEXT :i 
PRINT 
TUF 



60 
60 
60 



\ 
\ 

!.0 

TO : 
■■B(I 



A=:^5 

A.:: 6 



:l.:i.o END 



The same subroutine on line 60 is called 
only one RETURN statement is necessary. 



three times. 



Notice that 
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The following program is another illustration of the GOSUB and RETURN 
statements: 

LISTNH 

.10 REM •••■"" THIS PROGRAM ILLUSTRATES CJOSUB AND RETURN 

20 DEF FNA < X ) ^=^ABS ( I NT < X ) ) 

30 PRINT "THIS SUBROUTINE USES THE OUAriRATIO FORMULA." 

40 PRINT "ENTER THREE COEFFICIENTS" p 

50 INPUT AtBs-C 

55 PRINT 

60 PRINT "SOLUTIONS FOR COEFFICIENTS ENTERED ARE" 

70 PRINT "SHOWN FIRST v THEN SOLUTIONS FOR ABSOLUTE" 

BO PRINT " VALUE COEFFICIENTS." 

85 PRINT 

90 GOSUB .1.60 

:l.00 LET A^=M"NA(A) 

:l.:l.0 LET B---^^FNA<B) 

:l.20 LET C^=:FNA<C) 

,1.30 PRINT 

:i.40 GOSUB :i.<r>o 

145 PRINT 
150 GO TO 310 

160 REM THIS SUBROUTINE PRINTS OUT THE SOLUTIONS 

170 REM- --OF THE EQUATION A*X"2iB*XIC''=0 

180 PRINT "THE EQUATION IS "5A5"*X'"2 K "5B5" )KX f "iC 

190 LET D:=^B*B--4*A*C 

200 IF DOO THEN 230 

210 PRINT "ONLY ONE SOLUTION ... X- " ^•••B/ ( 2* A ) 

220 RETURN 

230 IF ri<0 THEN 270 

240 PR INT " TWO SOI...UT I ONS . . . X:^^: < " P 

250 PR I NT ( "B+SQR ( D ) ) / ( 2* A ) i) " ) AND ( " J ( -B-SQR < D ) ) / ( 2* A ) ? « ) " 

260 RETURN 

2 7 P R I N T " I M A G I N A Ia' Y S (3 1.. U T 1 N . . . X :=: ( " 5 

280 PRINT -B/ < 2*A ) 5 " + " J SQR ( •B ) / < 2*A ) 5 " I ) " 

285 PRINT " AND ( " ? 

290 PRINT -B/ ( 2*A ) 5 » - " 5 SQR ( -D ) / < 2>KA ) ? " *I ) " i 

300 RETURN 

310 END 

READY 
RUNNH 

THIS SUBROUTINE USES THE QUADRATIC FORMULA. 
ENTER THREE COEFFICIENTS? 3i.-5f -6 

SOLUTIONS FOR COEFFICIENTS ENTERED ARE 
SHOWN FIRST sr THEN SOLUTIONS FOR ABSOLUTE 
VALUE COEFFICIENTS. 

THE EQUATION IS 3 *X"'2 •* 5 *X •« 6 

TWO S L U T 1 N S . . . X ^^: ( 2.47481 ) AND (-.80814 3 ) 

THE EQUATION IS 3 *X''2 + 5 )KX •}• 6 
I M A 6 1 N A R Y S L Ul 1 N . . . X "- < ■■■■ . 8 3 3 3 3 3 + 1 .1426 1 I ) 
AND (-.833333 - 1.14261 *I) 

READY 

For more versatility in using subroutines, see the next section, the 
ON GOSUB statement. 
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4.4.2 ON GOSUB Statement 

The ON GOSUB statement is used to conditionally transfer control to 
one of several subroutines or to one of several entry points into one 
or more subroutines. The ON GOSUB statement has the following format: 

ON expression GOSUB line numberl[[, line number 2,... J 

where the expression is any legal BASIC expression. Line numbers must 
be separated by commas. 

The ON GOSUB statement works like the ON GO TO statement (Section 
4,1.2). When BASIC executes the ON GOSUB statement, it first 
evaluates the numeric expression. The value is then truncated to 
integer, if necessary. If the value of the expression is 1, control 
passes to the first line number specified; if it is 2, control passes 
to the second line number specified; if it is 3, control passes to 
the third line number specified; and so on. If the expression is 
less than 1 or greater than the number of line numbers in the list, 
BASIC prints the 7C0NTR0L VARIABLE OUT OF RANGE (?CVO) error message. 
The following is an example of an ON GOSUB statement: 

20 ON MB GOSUB 200 v 300>. :l.20 

If A+B=l, enter the subroutine at line 200 (first line number in 
list) . 

If A+B=2, enter the subroutine at line 300 (second line number in 
list) . 

If A+B=3, enter the subroutine at line 400 (third line number in 
list) . 



If A+B<1 i 

or [ 

If A+B>4 ) 



BASIC prints an error message, 



The line numbers to which BASIC branches can be either the first line 
of a subroutine or an entry point to a subroutine. 
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CHAPTER 5 
FONCTlONS 



5.1 TYPES OF PONCTIONS AVAILABLE 

Functions perform a series of numeric or string operations on the 
arguments you specify and return a result to BASIC (see Section 
2.4.5). BASIC provides mathematical functions, string functions, 
functions that you can define, and functions that give you the current 
day and time. 



5.2 NUMERIC FONCTlONS 

BASIC provides numeric functions to perform standard mathematical 
operations. For example, it is often necessary to find the sine of an 
angle. You can do this by looking it up in a table of sine values or 
by using BASIC'S SIN function. If you are not familiar with the 
mathematical functions described in; this chapter, see a trigonometry 
or algebra textbook. 

BASIC provides the following trigonometric functions: 

1. Sine function (SIN) 

2. Cosine function (COS) 

3. Arctangent function (ARC) 

In addition BASIC provides a special function, PI, which returns the 
value of pi ( ir ) , a frequently used trigonometric constant. 

BASIC provides algebraic functions to find: 

1. The square root of a number (SQR) 

2. The value of e, an algebraic constant, raised to any power 
(EXP) 

3. The logarithm of a number (LOG and LOGIO) 

4. The integral part of a number (INT) 

5. The absolute value of a number (ABS) 

6. The sign of a number (SGN) 

BASIC .also provides a function RND which returns a random number. You 
can use this function when you are trying to simulate an unpredictable 
situation with a BASIC program. 
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All BASIC'S numeric functions return floating point values, not 
integer values. it is important that these functions return values in 
floating point format to determine whether an expression is integer or 
floating point (see Section 2.4.1). All functions have a 6-digit 



accuracy. 



5.2.1 Trigonometric Functions (SIN, COS, ATN, and PI Functions) 

BASIC provides functions, SIN and COS, to find the sine and cosine of 
an angle. In addition you can use the ATN function to find the 
arctangent of a number, the angle whose tangent is equal to the 
number. BASIC also provides the PI function, which returns a value of 
3.14159, an approximation of pi. Pi is a transcendental number and 
can only be approximated in a decimal fraction. The format of these 
functions are: 

SIN(expression) 
COS (expression) 
ATN(expression) 
PI 

Note that the PI function cannot have an argument. If you specify an 
argument with PI, BASIC prints the 7SYNTAX ERROR (?SyN) message. 

Although BASIC does not have a tangent function, you can find the 
tangent of a number by using the following trigonometric equation: 

sine (angle) 
tangent (angle) = 



cosine (angle) 



BASIC requires that the arguments for the SIN and COS function be 
expressed as angles in radian measure. It also returns the value of 
the arctangent in radians in the range -pi/2 to pi/2 radians. (There 
are 2 *pi radians in a full circle.) If you want to measure angles in 
degrees (360 degrees in a full circle) , you can use the following 
equation: 

degrees *pi 

radians = 

180 

Consider the following program which converts an angle in degrees to 
an angle in radians and then calculates and prints the sine, cosine, 
and tangent of the angle. Finally the program prints the arctangent 
of the value returned by the tangent function. The arctangent should 
be the same as the original angle. 
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LISTNH 

;i.o pr:i:nt "supply an angle m dhjIgreeb" 
20 pr:i:nt "enter -9999 to end" 
25 pr:i:nt 

30 PRINT " ANGLE " v " SICN " v " COB " » " TAN " , " ATN ' 

40 pr:i:nt ":i:n rad:i;ans"v>. v v ":i:n rad:i:anb" 
45 pr:i:nt 

so print "ANGLE IN DEGREES"? 

60 INPUT X 

65 IF X^^^--9999 THEN 32767 

70 R""X>KPI/:l.80 

80 IF ABS<COS<R))<«0:l. THEN 200 

90 T-"-SIN(R)/COSa-i:) 

:l.00 PRINT Rp SIN(R)v CGS(R)!- T? ATNCT5 

l:l.0 GO TO 50 

200 PRINT "COSINE IS TOO CLOSE TO ZERO" 

2:1.0 GO TO 50 

32767 END 

READY 
RUNNH 

SUPPLY AN ANGLE IN DEGREES 
ENTER ■■•■9999 TO END 



ANGLE 

IN RADIANS 



SIN 



ANGLE IN DEGREES? 



ANGLE IN DEGREES? 45 

,785398 ,707:1.07 
ANGLE IN DEGREES? :l-0 

,.1.74533 ,:l. 73648 
ANGLE IN DEGREES? 89,99 
COSINE IS TOO CLOSE TO ZERO 
ANGLE IN DEGREES? -9999 



OS 


TAN 




ATN 

IN RADIANS 


:i. 










,707:1.07 


:l 




,785398 


,984808 


,:L763;, 


,r7 


,:l. 74533 



READY 

At lines 50 and 60, BASIC r 
At line 65 BASIC checks 
program. If you have not e 
radians, at line 70. At 1 
the angle is close to (th 
or 90 degrees) . If the co 
would involve division by 
(?DV0) error message. Next 
at line 90. Finally, BASIC 
cosine and tangent, and 
equal the angle) . 



equests that you enter an 
to see if you have entered 
ntered -9999, BASIC conver 
ine 80 BASIC checks to see 
is happehs when the angle 
sine is close to 0, calcul 
, which would produce the 
BASIC calculates the tang 
prints the angle in rad 
the arctangent of the tang 



angle in degrees. 

-9999 to end the 
ts the angles to 

if the cosine of 
is close to pi/2 
ating the tangent 
7DIVISI0N BY ZERO 
ent of the angle, 
ians, its sine, 
ent (which should 



NOTE 

When using this program, you type -9999 
to terminate it. -9999 was chosen 
because it is unlikely to be entered as 
a value in this context. Throughout 
this chapter many examples include this 
method of program termination. 
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5.2.2 Algebraic Functions 

BASIC provides the following algebraic functions; 

Square root function (SQR) 
Exponential function (EXP) 
Logarithm function (LOG and LOGIO) 
Integer function (INT) 
Absolute Value function (ABS) 
Sign function (SGN) 



5.2.2.1 Square Root Function (SQR Function) - The SQR function 

returns the square root of the expression you specify. A square root 

of a number times itself (squared) equals the original number. The 
format of the SQR function is: 

SQR (express ion) 

You use this function in BASIC instead of the mathematical notation 
for square root (■>/") . 

If the value of the expression is negative, BASIC prints the nonfatal 
message ?NEGATIVE SQUARE ROOT (?NGS) and returns a value of 0. For 
example: 

LISTNi-l 

:I0 PRINT "THE SOUARE " v "IS" 

20 PRINT "ROOT OF" 

30 PRINT :I.AfSQR(:l.6) 

40 PRINT ■■•■:l.0Os.SaR(-100) 

50 X~^3:l. .6223*31.6228 

60 PRINT X»SQR(X) 

READY 
(■■UNNH 

THE SQUARE IS 
ROOT OF 

:j. 6 4 

••■:l.00 TNEGATIVE SQUARE ROOT AT LINE 40 



1000 3:1. .6228 

READY 

Notice that when BASIC tries to calculate the square root of -100 it 
prints the error message and then prints on the next line. 



5.2.2.2 Exponential and Logarithm Functions (EXP, LOG, and LOGIC 
Functions) - The exponential function returns e, an algebraic constant 
raised to the power specified. For example EXP(l) is equal to e , 
approximately 2.71828, and EXP(2) is equal to e"2. The format of the 
EXP function is: 

EXP (expression) 

The LOG function returns the logarithm to the base e of the specified 
expression. The format of the LOG function is: 

LOG (expression) 
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EXP and LOG are related functions. Specifically, EXP is the inverse 
of LOG. The following formula describes their relationship. 

LOG(EXP(X) ) = X 

Consider the following examples. Note that the output from one 
example is used as input for the other. 



EXP Function 



l:i:stnh 

:i.O INPUT X 

:l.5 :i:F X :::^ -...9999 THEN 

20 PRINT EXPCX) 

30 GO 'r'C) :i.o 

100 END 


:l.00 


READY 
RUNNH 




r 4 
54.59B:I. 

f 1 l" 




22026*5 
? 9 » 42:1. 00 

:l.2344«9 
? ■•■9999 





LOG Function 



I...ISTNH 

:l..O INPUT X 

:l.;5 IF X :: 9999 THEN :l.00 

20 PRINT I...OG(X> 
30 GO TO :l.O 
:l.00 END 

READY 
RjUNNH 

? 54.598:1.5 

4 
? 22026.47 

.1.0 

? :l.2345 

9,42:l.0:l. 
'j. ....9999 



;:ady 



READY 



You can convert logarithms to the base e to any other base log by 
using the following formula: 



log^(N) = 



logg(N) 
log^Ca) 



where you are trying to find the log^ of N to the base a. Consider the 
following examples which calculate logs to any base. 



LISTNH 

:l.0 REM •■■■ CONVERT BASE 

20 PRINT "WHAT BASE" 5 

30 INPUT B 

4 I"' R :i: N 'T' " y a l u e: " ? " b a s li- e: i... o g " >■ " b a e 

50 INPUT X 

60 IF X ':= ■■■•9999 THEN 200 

70 PRINT Xi- 

80 PRINT LOGCX) k 

90 PRINT LOGi:X)/l,..OG(B) 

:l,00 GO TO 30 



OG TO ANY BASE LOG. 



:)G" 



200 END 








READY 
RUNNH 








WI-IAT BASE 
UALUE 
? 4 

4 
? 250 

250 


? 2 


BASE E LOG 
:l. .38629 
5.52:1.46 


BASE 2 LOC 
7.96576 


! 

5 
? -9999 




:l. . 60944 


2.32193 


READY 
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However, you need not use this formula to find the logarithm to the 
base 10 of a number. BASIC provides the LOGIO function which does 
this. The form of the LOGIO function is: 

LOGIO (expression) 

You use the LOGIO the same way that you use the LOG function. The 
only difference is that LOGIO returns the logarithm to the base 10 
instead of to the base e. 

If you specify an expression in the LOG or LOGIO function whose value 
is negative or equal to 0, BASIC prints the nonfatal message ?BAD LOG 
(?BLG) and the function returns a value of 0. 



5.2.2.3 Integer Function (INT Function) - The integer function 
returns the value of the greatest integer that is less than or equal 
to the expression you specify. The format of the integer function is: 

INT (express ion) 

For example: 

l:i:stnh 

:l.O PRINT imC3A,A7> 
20 PRINT INT<;?3000*9) 

READY 
RUNNH 

33000 

READY 

The INT function always returns the value of the greatest integer that 
is less than or equal to the specified expression. A consequence of 
this is that when you specify a negative number, INT produces a number 
whose absolute value is larger. For example: 

Li:STNH 

10 PRINT INT < •■•23.45) 

20 PRINT INT(-:l,4.7) 

30 PRINT INTC':L:n 

READY 
RUNNH 

■•■•24 
•■■• ;l. 5 
"••.l.:i. 

READY 

Note that the value returned by INT is a whole number in floating 
point format, not an integer. 
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You can use the INT function to round off numbers to the nearest 
integer by adding 0.5 to the argument. For example: 

L:r.STNH 

10 pr:i:nt :i:NT(34.<f>7+.5) 
20 pr:i:nt :i:NT("-s5.:i.f ,5) 

READY ' 

RUNNH 

-5 

READY 

You can also use INT to round off a: number to any given decimal place 
or any integral power of 10. Do this by using the formula: 

number rounded off = INT(number*10''P+.5)/10"P 

where P represents the number of places of accuracy. 

Consider the following example which rounds numbers to the number of 
decimal places specified by the ^ user. Note that P should have a 
positive value (tested in line 135) in the formula (which is in line 
150) for P to determine the digits of accuracy to the right of the 
decimal point. 

LISTNH 

50 rem program to round off dec^tmai... numbers 

100 pr:i:nt "what number do you w:i:sh to round off"? 

110 :i:nput n 

115 :i:F N ■■■■■■■ ■■■■9999 THEN 100 

120 PRINT "TO HOW MANY PLACES"? 

130 INPUT P 

140 PRINT 

150 LET A^^<!:NT<N*10'"P-f .5)/(10"P) Round the number 

1 6 P R :i: N T N " ■■:■■■■ " A " T " I-' " D E C I M A L. PI... A C E S > " 

170 PRINT 

1(30 GO TO 100 

1000 END 

READY 
RUNNH 

WHAT NUMBER DO YOU WISH TO ROUND OFF? 56.1237 
TO HOW MANY PLACES? 2 

56,1237 ■■■■:■■ 56*12 TO 2 DECIMAL PLACES. 

WHAT NUMBER DO YOU WISH TO ROUND OFF? 0.449 
TO HOW MANY PLACES? 1 

8.449 ^^- 0,4 TO 1 DECIMAL PLACES. 

WHAT N1..IMBER DO YOU WISH TO ROUND OFF? •■••9999 

READY 
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And consider this program which prints numbers to the nearest 
thousandth (10"3) . Note that in this program, P has a constant value 
of -3 in the formula (on line 40) . Because P is negative, the 
accuracy is three digits to the left of the decimal point, that is the 
numbers are rounded to the nearest thousand. 

LISTNH 

:l.0 REM PROGRAM TO ROUND TO NEAREST 1000 

20 PRINT "WHAT NUMBER DO YOU WANT TO ROUND? 

30 INPUT N 

35 :i:F N— ■9999 THEN :l,000 

4 A ■■■■■■■■ :C N T ( N * :l. '•' ( • • 3 ) ■!■ . 5 )/ 1 '■'<■••• 3 ) 

S P R 1 NT N P " = " i! A i! " r' T H E N E A R E ST 'T' H U SAND" 



..,1 i.j 



ll'NT 
60 GO TO 20 
.1.000 END 

READY 
RUNNH 

WHAT NUMBER DO YOU WANT TO ROUND? 34339 
34339 ■■■■■■ 34000 TO THE NEAREST THOUSAND 

WHAT NUMBER DO YOU WANT TO ROUND? :l.:l.749 
:l,:l.749 - 12000 TO THE NEAREST THOUSAND 

WHAT NUMBER DO YOU WANT TO ROUND? ■9999 

READY 



5.2.2.4 Absolute Value Function (ABS Function) - The ABS function 
returns the absolute value of the specified expression. The form of 
the ABS function is: 

ABS (expression) 

The absolute value of a number, by mathematical definition, is always 
positive. The absolute value of a positive number is equal to the 
number, but the absolute value of a negative number is equal to -1 
times the number. For example: 



100 



LTSTNH 
:l.0 INPUT 
±•5 IF X- 
20 X-ABS' 
30 PR. TNT 
40 00 TO 
:l.00 END 


X 

•9999 THEN 
CX) 
X 
:l.0 


READY 
RUNNH 




'|. ... 


■35.7 




31: 
? S 


> . 7 
> 




? '■^: 

2 t 

v ■■■ 


\'5E20 

soooot 

■:l.0555S 


:>f2:l. 
567 


:l. ,. 
'!> ... 


0555AII 
•9999 


•■•f07 



:ady 
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Note that the ABS function returns a floating point number even if the 
argument is an integer. In that case, it returns a whole number in 
floating point format. 



5.2.2.5 Sign Function (SGN Function) - You can use the sign function 
to determine if an expression is positive, negative, or equal to 0. 
The format of the SGN function is: : 

SGN(expression) 

If the expression you specify is positive, SGN returns a +1; if it is 
negative, SGN returns a -1; and if it is equal to 0, SGN returns a 0. 
For example: 

l:i:stni-i 

:i.O A -■■■•7. 3 2 

20 )f^^:u44 

30 C^^^O 

■ 4 P R :i: N 'l' " A ■■■■■■■■ " ? A V " B :■■■■: " 5 B j " C ■■'^- "" i) C 

SO PRINT "S(3N(A)--" SSGN(A) V 

6 1=' R :i: N T " S G N < B ) ■•" " 5 S G HUiO ^ 

7 !"■ r^ :i: N r " s g n < c ) ^^^^ " ? s (3 n ( c ) 

READY 
RUNNH 

A =-7.32 B^'^^ .44 C^^^' 

SGN(A)^:--:l. SGN<B)- :l, SGN(C)- 

READY 
Note that SGN returns these values as real numbers, not integers. 



5.2.3 Random Numbers (RND Function and RANDOMIZE Statement) 

It is often useful to get a series of random numbers in a BASIC 
program. A series of random numbers is a series of numbers which are 
not related to each other in any way. You can use random numbers in 
simulating a situation in the world which is not predictable. 

It is impossible for a computer to produce a series of totally random 
numbers because computers always produce the same results given the 
same starting comditions. Instead, BASIC uses complex calculations to 
produce a predictable series of numbers that seem unrelated. This is 
called a pseudo-random series. 

The RND function returns a number from this pseudo-random series each 
time you use it. It starts from the beginning of the series whenever 
you initialize your program (OLD, NEW, SCR, or RUN command or CHAIN 
statement) . 

In addition, BASIC provides the RANDOMIZE statement. Every time that 
BASIC executes the RANDOMIZE statement it starts the RND function at a 
new, unpredictable (based on the current time of day) location in the 
series. When you are testing and changing your program you should not 
use the RANDOMIZE statement. If you do, you will not know if changes 
in the results are caused by changes in the program or the series 
starting off in a new location. If, on the other hand, you have 
tested your program and are using it, use the RANDOMIZE statement 
because it produces less predictable series. 
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The format of the RND function is: 

RND 

The function returns a random number in the open range to 1. (An 
open range means the extremes, and 1 in this case, are never 
reached. ) 

You can also specify an expression in RND, for example, RND(O) , but do 
not do this. BASIC ignores the expression and only allows it because 
you may have written a program with another version of BASIC which 
requires an expression after RND. 

The format of the RANDOMIZE statement is: 

RANDOMIZE 

Consider the following examples which contrast RND without and with 
RANDOMIZE. 

RND without RANDOMIZE 



i...;tSTNH 








:i.o f-'r:i:nt f 


iNDy 


RND 


i»RND»RND 


READY 








RUNNH 








.04073.1.9 






.528293 


READY 








RUNNH 








.04073.1,9 






.52B293 


READY 








RUNNH 








,04073:1.9 






.528293 


READY 









.803:1.72 .0643915 



.803:1.72 .064391.1 



.803:1.72 .06439:1.5 



As you can see, every time the program without RANDOMIZE is run, RND 
produces the same series of values. 

RND with RANDOMIZE 

LISTNH 

5 RANDOMIZE 

:i. l"'R :i: NT RND , RND v RND v RND 

READY 
RUNNH 

4.53806E-03 .4:1.97:1.2 .477427 .087:1.577 



READY 








RUNNH 








.258322 


.:l. 8:1. 064 


.76:1.485 


.93933 


READY 








RUNNH 








.494:1.62 


.888584 


.884043 


.307006 


READY 
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Each time the program with RANDOMIZE is run, RND produces a different 
random series of numbers. 

You can also use the RND function to produce a series of random 
numbers over any given open range. To produce random numbers in the 
open range A to B, use the following general expression: 

(B-A) * RND+A 

For example, to produce 10 numbers in the open range 4 to 6 , use this 
program 

LTSTNH 

10 FOR :i::=-:i. to :i,o 

20 PR:i:NT (6-4)*RND*-4» 
30 NEXT I 

READY 
RUNNH 

4<.0B:i.4A 5,05659 5.60634 4<.:l.287B 4.3:1.56:1. 

4/7346:L 5.567:1.7 4.79:1.54 4.6447 4.74433 

READY 

Note that in line 20 of the program the general expression is used 
with a value of 4 for B and a value o£ 6 for A. 

To obtain a series of random integers in the range of to 40, use the 
expression 

INT( (41-0)*RND+0) 

or the equivalent 

INT(41*RND) 

41 is used instead of 40 so that the expression can return a value of 
40. 

The following example produces 15 random integer values in the range 
to 40. 

i...:i:sTNH 

:l.O FOR :i: ■■■■■■■■ :i. to :I.5 
20 pr:i:nt :i:nt(4:i.*rnd) » 
30 NEXT :i: 

ready 

RI.INNH 

2:1. 32 2 6 

5 32 16 :l.3 :l.5 

3 26 35 16 26 

READY 
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5.3 STRING FUNCTIONS 

BASIC provides string functions that allow you to examine and modify 
strings and perform certain string to numeric conversions. 

String functions that return a string have a dollar sign (?) at the 
end of their name. String functions that return floating point or 
integer numbers do not have a dollar sign. 



5.3.1 String Manipulation Functions 

BASIC'S string operations allow you to concatenate and to compare 
strings, but only by also using the string manipulation functions can 
you analyze what a string is composed of. You can use string 
functions to: 

1. Determine the length of a string (LEN) . 

2. Trim off trailing blanks from a string (TRM$) . 

3. Search for the position of a set of characters within a 
string (PCS) . 

4. Copy a segment from a string (SEG$) . 



5.3.1.1 Finding the Length of a String (LEN Function) - You can use 
the LEN function to find the length, or number of characters, of a 
string. The LEN function returns an integer value equal to the length 
of the string you specify. The format of the LEN function is: 

LEN (string) 

Consider the following example which prints the length of a string 
containing all the letters in the alphabet: 

i...:i:sTNH 

:l. A * '-■' " A B C D E F" C) l-l :i: ,.J K I... M N C) I"' Q R B T U V W X Y Z " 
20 PRINT l,..EN(A$) 

READY 
RUNNH 

26 

READY 
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5.3.1.2 Trimming Trailing Blanks Off a String (TRM$ Function) - The 

TRM$ function returns the same string that you specify except that any 
trailing blanks are removed. The format of the TRM$ function is: 

TRM$ (string) 

Consider the following example in which two strings are concatenated 
and printed, both before and after trailing blanks have been trimmed: 

i...:i:btnh 

:i,o a$-""AB(;;d 

20 B*:=^"EFG" 

30 PR:i:NT "before TRIHMINGJ" vA*-l-Bf 

40 PRINT "AFTER TR.TMMl'NG S % TRMil; ( A$ ) -f B$ 

READY 
RUMNH 



BEFORE tr:i:mm:i:n6j 

AFTER TRIMMING I 



A BCD i; 
ABODEFG 



READY 



5.3.1.3 Finding the Position of a Substring (POS Function) - Use the 
PCS function to find the location of a group of characters, or 
substring, within a string. The format of the POS function is: 

POS (stringl, string 2, express ion) 

where: 

stringl is the string being searched. 

string2 is the substring. 

expression is the character position at which BASIC starts the 
search. 

The POS function searches for and returns the first occurrence of 
string2 in stringl starting with the character position specified by 
expression. If POS finds the specified substring, it returns the 
character position of the first character of the substring. If POS 
does not find the specified substring, it returns a 0. 

The POS function always returns an integer value. 
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Consider the following example which translates each name of a month 
to its numeric equivalent (e.g., DEC to 12): 

LISTNH 

:l t$^^-= " janr-ebmaraprmay jun julaugsepoctnoydec " 
100 pr:i:nt "type the first 3 letters of a month" p 

.1.:l.0 INPUT M$ 

:l.20 IF M*:^-:"END" then 32767 

:l.30 IF LEN(M$)<>3 THEN 200 

140 M :=: ( P S < T * f M !|i > 1 ) ■»■ 2 ) / 3 

ISO IF MOINTCM) THEN 200 

160 PRINT M*v" IS MONTH NUMBER" SM 

170 GO TO 100 

200 PRINT "INVALIB ENTRY •■ TRY AGAIN" \G0 TO 100 

32767 ENIir 

REABY 
RUNNH 

TYPE THE FIRST 3 LETTERS OF A MONTH? NOV 

NOy IS MONTH NUMBER 11 

TYPE THE FIRST 3 LETTERS OF A MONTH? MAY 

MAY IS MONTH NUMBER 5 

TYPE THE FIRST 3 LETTERS OF A MONTH? JUD 

INVALIB ENTRY ■•■• TRY AGAIN 

TYPE THE FIRST 3 LETTERS OF A MONTH? ENB 

REABY 

In line 140 the POS function returns the position of the input string, 
M$ , in the string containing the first three letters of each month, 
T$. 

If the program finds the month you specify, it prints the number of 
the month. If it does not find the month, it requests you to try 
again. 

Using the POS function to translate a string to a number corresponding 
to the string's location in a larger string is called a table look-up'. 
The table string is stringl and the string to be mapped is string2 in 
the POS function format. 

There are certain possible error conditions dependent on the values of 
the strings and the expression; 

1. If string2 (the substring) is null and stringl (the table 
string) is nonnull then the function returns the lesser of 
the value of the expression and the length of stringl plus 1. 

2. If stringl is null, then the function returns 0. 

3. If the expression has a value less than 1, then the function 
assumes a value of 1 and starts the search at the first 
character. 

4. If the value of the expression is greater than the length of 
stringl and string2 is nonnull, then the function returns 0. 
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5.3.1.4 Copying Segments from a String (SEG$ Function) - Use the SBG$ 
function to copy a segment (or substring) from a string. The SEG$ 
function returns a string consisting of the characters in the string 
you specify between the character positions you also specify. The 
original string is unchanged. The format of the SEG$ function is: 

SEG$ (string,expressionl,expression2) 

where: 

string is the string from which the segment is copied. 

expressionl specifies the starting character position of the 
segment 

expression2 specifies the last character position of the 
segment. 

For example: 

LISTNH 

:l.<) PR:i:NT SEOiliCABCDEF" !'3»5) 

READY 
RUNNH 

CUE 

READY 

There are several error conditions based on the values of the 
expressions and the string: 

1. If expressionl is less than 1, BASIC assumes a value of 1. 

2. If expressionl is greater than expression2 or the length of 
string, SEG$ returns a null string. 

3. If expression2 is greater than the length of the string, SEG$ 
returns the characters from expressionl to the end of the 
string . 

4. If expressionl equals expression2, then SEG$ returns the 
character at position expressionl. 

By using the SEG$ function and the string concatenation operator (+) , 
you can replace a segment of a string. Consider the following 
example: 

LIBTNH 

:l.0 fi\^:::'"ABCDEF 13" 

20 C*™SEG* < A!|m :l. ? 2 ) ■}• " X YZ " -l-SEG* ( A$ v 6 1- 7 ) 
30 PRINT C$ 

READY 
RUNNH 

ADXYZFG 
READY 
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Line 20 replaces the characters CDE in the string A$ with XYZ. 
Examine line 20; 

20 C$=SEG$(A$,1,2)+"XYZ"+SEGS(A$,6,7) 

You can use similar string expressions to replace any given characters 
in a string. 

A general formula to replace the characters in positions n through m 
of string A$ with B$ is: 

C$=SEG$(A$,l,n-l)+B$+SEG$(A$,m+l,LEN(A$) ) 

For example, to replace the sixth through ninth characters of the 
string "ABCDEFGHIJK" with "123456", enter the following program: 

LISTNH 

:l,0 A $■:::" ABCDEFGHIJK" 

20 B$^=^":l. 23456" 

30 C*'^^^SEG* < A$ !> :l. y 5 ) f B^tSEG* ( A* y :l. v LEN < Ai|; ) > 

40 pr:i:nt c* 

READY 
RUNNH 

ABCDE123456JK 

READY 

The following formulas are more specific applications of the general 
formula . 

To replace the first n characters of A$ with B$ : 

C$=B$+SEG$(A$,n+l,LEN(A$) ) 
To replace all but the first n characters of A$ with B$ : 

C$=SEG$(A$,l,n)+B$ 
To replace all but the last n characters of A$ with B$ : 

C$=B$+SEG$(A$,LEN(A$)-n+l,LEN(A$) ) 
To replace the last n characters of A$ with B$ 

C$=SEG$ (A$ ,1 ,LEN (A$) -n) +B$ 
To insert B$ in A$ after the nth character in A$ : 

C$=SEG$ (A$,l,n)+B$+SEG$(A$,n+l,LEN(A$) ) 



5.3.2 Conversion Functions 

BASIC provides several string functions to convert strings to numbers 
and numbers to strings. 
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YOU can use BASIC'S functions to make the following conversions: 

1. Character to ASCII code (ASC) 

2. ASCII code to character (CHR$) 

3. Number to its string representation (NUM$) 

4. String representation of a number to a number (VAL) 

5. String representing a binary number to a decimal number (BIN) 

6. String representing an octal number to a decimal number (OCT) 

These functions provide flexibility in manipulating both strings and 
numbers. 



5.3.2.1 Character and ASCII Code Conversions (ASC - and CHR$ 
Functions) - BASIC uses the ASCII code to represent characters 
internally. The ASC function returns the decimal ASCII code of a 
1-character string that you specify. The CHR$ function returns the 
1-character string which has the ASCII value you specify. Both 
functions handle eight-bits of internal representation (decimal to 
255) . The ASC and CHR$ functions can be used with the SEG$ function 
to analyze the character in a string. 

The format of the ASC function is: 

ASC(string) 

where string must be a 1-character string. If string is a null string 
or contains more than one character, BASIC prints the PARGUMENT ERROR 
(?ARG) error message. 

The ASC function returns an integer value. 

The format of the CHR$ function is: 

CHR$ (expression) 

Only one character is generated at a time. 

The expression must be or greater. BASIC treats arguments greater 
than 255 modulo 256 (e.g., BASIC treats 256 as a 0, 257 as a 1, etc.). 
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Consider the following example: 

I..ISTNH 

:l,0 REM THIS PROGRAM WiCLL RETURN AN INF^JT LETTER AND THE 2 

20 REM FOLLOWING IT ALI-'HABETICALLY 

30 PRINT "ENTER A LETTER A THRU Z, ENTER END WHEN FINISHED" 

40 PRINT "LETTER'S "NEXT LETTER" k "3RD LETTER" 

50 INPUT X* 

S5 IF X$:""END" GO TO 999 

60 IF X*<"A" GO TO :l.90 

70 IF X$>"Z" 00 TO 190 

80 FOR F=::AGC<X$) TO ABC(X$)f2 Returns ASCII value of X$ 

90 IF CHR*<F)>"7" GO TO :l.50 Uses CHR$ to produce next 

.1.00 PRINT CHR«<F)!-? character 

,1.10 NEXT F 

120 PRINT 

:l.30 GO T'O 50 

ISO PRINT "END OF ALPHABET" 

160 GO TO 50 

190 PRINT "ENTRY IS NOT A LETTER A THRU Z" 

210 00 TO 30 

999 END 

READY 
RUNNH 

ENTER A LETTER A THRU 7.., ENTER END WHEN FINISHED 

LETTER NEXT LETTER 3RD LETTER 

? E 

I'- !■■ G 

'i' A 

A B c; 

? Y 

Y 2 END OF ALPHABET 

? 3 

ENTRY IS NOT A L.ETTER A THRU Z 

ENTER A LETTER A THRU 2, ENTER END WHEN FINISHED 

L.ETTER NEXT LETTER 3RD I...ETTER 

'!' END 

READY 



NOTE 

The CHR$ function produces all printing 
and non-printing characters with ASCII 
values from to 127. ASCII values 
between 127 and 255 produce the same 
character as the ASCII value minus 128, 
but the string produced is not equal and 
differs in the internal representation. 



5,3.2.2 Numbers and Their String Representation Conversions (VAL and 
STR$ Function) - Two functions, VAL and STR$ , convert numbers to their 
string representation and vice versa. You can use these functions 
when you want to input a numeric value in a string variable or to 
print a number without the spaces around it. 
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Consider these programs: 

String Representations 

LiCSTNH 

:l,0 PR .TNT "25" 

20 pr:i:nt "25M" 

READY 
RUNNH 



Numbers 

I....T8TNH 

.1.0 PR. TNT 25 

20 PR TNT 25+: 

READY 
RUNNH 



25}-:l. 
READY 



25 
READY 



The program on the left prints the string representation of numbers, 
but the program on the right prints the numbers themselves. Note how 
the "25+1" on the left is printed as it is while the 25+1 on the right 
is evaluated to be 26. 

The VAL function returns the number represented by the specified 
string. The format of the VAL function is: 

VAL (string) 

where: 

string 



may contain the digits through 9, the letter 



(for E notation) and the symbols 
(minus) , and . (decimal point) and 
string representation of a number, 
must be a numeric constant not 
expression. 



E 

+ (plus) , - 

must be a 

The string 

a numeric 



The STR$ function converts a number to its string representation. The 
format of the function is 

STR$ (expression) 

The STR$ function returns the value of expression as it would be 
printed by a PRINT statement but without a leading or trailing space. 
Use the STR$ function when you want to print a number without spaces 
before and after it or when you want to perform string operations or 
functions on a number. 
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Consider the following example: 
I... .IS TNI -I 

5 pr:i:nt "program to calculate: sz interest" 
:i. I"' R 1 N T " t y p e in am U N r " n 

20 INPUT M* 

30 :i: I"' p s ( M * » " * " f :i. ) •::: > i t h e n :i. o o 

4 A $ "" S E G !|; ( M * y 2 I- 1... E N ( M $ ) ) 

50 M^^''UAL(A!|i) 

60 I"".05)CM 

70 I$^'::STR$(I) 

80 I i|i^=:SEG* < I $ . :l, , 2f POS ( I $»".">. :l, ) ) 

as REM 

90 PRINT "5% INTEREST OF"!lM$y 

;l.00 PRINT "IS *"vl$ 

22767 END 



Input string in form $xxx.xx. 
Check to see that a $ is present. 
Strip $ from number. 
Convert string to number. 
Compute interest. 
Convert it to string. 
Truncates interest to 

dollars and cents. 
Print results. 



READY 
RUNNH 

l-''ROGRAM TO CA I.. GUI... ATE 5X I 
TYPE IN AMOUNT? *;508,90 
5X INTEREST OF *308«90 IS 



;;EAIiY 



NTEREST 
$.1.5.44 



Note that there is 

no space before 15.44, 



5.3.2.3 Binary and Octal to Decimal Conversions (BIN and OCT 
Functions) - The bin function returns the decimal value of a binary 
number. The binary number is represented as a string of Is, Os, and 
spaces. The BIN function ignores spaces, allowing convenient spacing 
of the digits. The format of the BIN statement is: 

BIN(string) 

The BIN function returns an integer value. 

The binary number is treated as a signed 2's complement integer and 
its absolute value may not be larger than 2"15-1. For example: 

LISTNH 

:l. I-' r:; :i: N T B I N < " .1. :l. :l. .1. " ) 

2 P R I N r BIN ( " :l. :l. :l. ;l. :l. :l. :l, :i. :l. :i. :i. ;i. :i, :i. :i. :i. " ) 

READY 
RUNNH 



READY 

The OCT function returns the decimal value of an octal number. The 
octal number is represented as a string containing the digits from 
to 7 and spaces. The OCT function ignores spaces allowing convenient 
grouping of the digits. The format of the OCT function is: 

OCT (string) 

The OCT function returns an integer value. 
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The octal number is treated as a signed 2's complement integer, 
absolute value may not be larger than 2''15-1. 

For example: 

l...:rSTNH 

:l.0 PRINT OCT( "45:1. " ) 

20 pr:i:nt oct(":i. 77 777'') 

READY 
RUNNH 

297 



Its 



READY 



5.4 USER-DEFINED FUNCTIONS (DEF STATEMENT AND FN FUNCTION) 

In some programs you may want to execute the same sequence of 
mathematical formulas in several places. You can define a sequence of 
operations as a user-defined function and can use this function as you 
use the functions BASIC provides, such as SIN and SEG$. 

Names of user-defined functions consist of the letters FN, followed by 
a third letter, and optionally followed by a percent sign or a dollar 
sign. If you end the function name with a percent sign, it returns an 
integer. If you end the function name with a dollar sign, it returns 
a string. If you do not end the function name with either a percent 
sign or a dollar sign, then it returns a floating point number. 



Legal User-Defined 
Function Names 



Illegal User-Defined 
Function Names 



FNA 

FNC% 

FNR$ 



FNl 

FNA2 

FNA%$ 



YOU must define each user-defined function once in a program with a 
DEF statement. You can define it anywhere in the program. The format 
of the DEF statement is: 



DEF FNletter 



where: 

letter 



1:1 



(list) =expression 



is an alphabetic character that becomes part of 
the function name. 



% 



indicates the function returns an integer and 
becomes part of the function name. 



indicates the function returns a 
becomes part of the function name. 



string 



and 



neither $ nor % indicates the function returns 
real number. 
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list contains between one and five dummy variables. 

These can be integer, floating point, or string 
variables. The list is in the format: 



variablel |r,variable2, . . . ,variable5l 



expression is evaluated each time the function is used. It 
may contain any of the dummy variables or any 
other variables in the program. 

Ensure that the expression is the same data type, string or numeric, 
as indicated by the function name. If the expression is real and the 
function name is integer or vice versa, BASIC converts the expression 
to the type specified by the function name. 

Once you have defined the function anywhere in the program, you can 
use (or call) the function. The format for calling the function is: 



FNletter 



i:i 



(expressionl [[, express ion2, . . . ,expression5j) 



where the number of expressions must be the same as the number of 
dummy variables in the DEF statement. 

Each expression in a function call corresponds to a dummy variable in 
the DEF statement. When BASIC evaluates a function call, it evaluates 
the defining expression in the DEF statement with the expressions 
listed in the function call in the place of the corresponding dummy 
variables. 

For example, the line: 

:!.(> DEF FNA(S)^'^^S'"2 
causes a later statement: 

20 LET R-FNAM) 

to assign a value of 16 (4"2) to R. 

Consider the following two programs: 

Program #1 Program #2 

LIBTNH LISTNH 

:l,0 DEF FNS<A)'^^^A"A 10 DEF FNS ( X ) ^=^X"~X 

20 FOR :C-:l. TO 5 20 FOR :i:-:L TO 5 

30 pr;i:nt :i:!-FNS<:n 30 pr:i:nt :i:vFNS<:i:) 
40 next :i: 4o next :i: 

50 END 50 END 

READY 
RUNNH 





READY 
RUNNH 


.1. 

A 

2.7 

256 

3125 


:l. 
2 
3 
4 
5 



2 4 2 4 

3 2.7 3 2.7 

4 256 4 25A 

5 3125 5 3:1.25 

READY READY 
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As you can see, these two programs produce the same output. The 
actual names of the arguments in the DEF statement have no 
significance; they are strictly dummy variables. But the data types 
of the variables are significant. If the DEF statement specifies a 
string variable, the corresponding argument must be a string. If the 
DEF statement specifies a numeric variable, the corresponding argument 
must be numeric. BASIC converts, as necessary, a numeric argument to 
the type, floating point or integer, specified by the name in the DEF 
statement. 

The defining expression can contain any constants, variables, 
BASIC-supplied function, or another user-defined function. For 
example: 

:l.0 DEF FNA(X)'^=X""2+3>!<X*-4 

20 DEF FNB(X)="FNA<X)/2+FNA<X) 

30 DEF FNC(X>^"SQR<X+4 )•*■:!. 

You can include any variables in the defining expression. If the 
expression contains variables that are not in the dummy variable list, 
they are not dummy variables. That is, when the user-defined function 
is evaluated, the variables have the value currently assigned to them. 

Consider the following example: 



LISTNH 

:i.O DEF FNB(Ai.]B)^^=A-fX'"2 

20 x-:i. 

30 PR. TNT FNB(:l.4i'B7) 

■40 X^=^2 

50 pr:i:nt FNB<:i,4je7) 

32767 END 



Define function. 
Assign value to X. 
Evaluate function. 
Change value of X. 
Evaluate function again, 



READY 
RUNNH 



:ia 
READY 



14 + l'^2 
14 + l"! 



Note that in this example the second argument (the dummy variable B 
and the actual argument 87) is unused. 



The expression does not have to contain any of the variables, 
example: 



For 



LISTNH 

:10 DEF FN A <X)'^:^4+2 

20 LET R^:=FNAC:U))f:l. 

30 PR. TNT R 

40 END 



Note this function always returns 
a value of 6 no matter what 
the value of the argument 
is. 



READY 
RUNNH 



EADY 
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Consider the following example! 



l..:i:STNH 

;l, REM MODULUS ARITHMETiCC PROGRAM 

5 REM FIND X MOD M 

:l. D E F !"• N M ( X sr M .■» -■ X •■■■ M * :i: N T ( X / M ) 

:l.5 REM 

20 REM F;i:ND AfB MOD M 

2 5 D E F F" N A < A !■ B J M ) "•■ F N M ( A ■!• B » M ) 

30 REM 

35 REM F:i:ND A)KB MOD M 

40 DEF FNB(A?B!-M)^M"NM<A*B!.M) 

41 REM 
45 PRINT 

50 PRINT "ADDITION AND MULTIPLICATION TABLES MOD M" 

55 PRINT "GIVE ME AN M"5 \ INPUT M 

60 PRINT \ PRINT "ADDITION TABLES MOD'SM 

65 GOSUB 800 

70 FOR I'^^^O TO M--:l, 

75 PRINT I? " "5 

80 FOR J^:::0 TO M--:!. 

85 PRINT FNACInJi-M) 5 

90 NEXT J \ PRINT \ NEXT I 

00 PRINT \ PRINT \ 

:l,0 PRINT "MULTIPLICATION TABLES MOD"?M 

20 GOSUB SOO 

30 FOR I^=^0 TO M-:l. 

40 PRINT 15 " " V 

50 FOR J-0 TO M-:l. 

60 PRINT ENBdi-Ji-M) ? 

70 NEXT J \ PRINT \ NEXT I 

80 GO TO 32767 
:K>0 rem SUBROUTINE FOLLOWS? 
:S :l, I"' R' I N 'I' \ I"' R I NT 1 A B ( 5 ) ? 5 
S20 FOR I^^^^O TO M-l 

30 PRINT i; \ NEXT I \ PRINT 

40 FOR I ■■";!. TO 3*M + 4 
050 PRINT "•■■■"; \ NEXT I \ PRINT 

60 RETURN 

2767 END 



Define FNM to find 
X MOD M. 

Define FNA to find 
A+B MOD M using FNM. 

Define FNB to find 
A*B MOD M using FNM. 



Call FNA. 



Call FNB. 

Subroutine prints 
table headings. 



READY 
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RUNNH 



ADDITION AND MULTIPL.TCATION TABLES MOD M 
GWE ME AN MT 7 



ADDITION TABLES MOD 7 
:l. 2 3 -4 !: 
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READY 

You can put DEF statements anywhere in a program. They do not have to 
appear before the functions are used. BASIC defines functions when a 
program is run. Consider this example: 

:l.0 DEF" FNA(X):::-X"2 Enter DEF statement 
PRINT FNA<3) Try calling function in 

immediate mode 
TUNDEFINED FUNCTION Error message produced. 

READY 

RUNNH Run program, causing 



function to be defined, 



READY 



PRINT FNA(3) Now it works! 
9 

READY 

If you enter a DEF statement in immediate mode, BASIC ignores it. 

If the same function is defined more than once in a program, BASIC 
prints the PILLEGAL DEFINE {?IDF) error message. Note that FNA, FNA% , 
and FNA$ are all different functions. 
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5.5 DATE AND TIME FUNCTIONS (DATS AND CLK$ FUNCTIONS) 

BASIC provides two functions to return the current date and time. The 
format of these functions are: 

DAT$ 
CLK$ 

For example: 

LISTNH 

:i. I"' R :i: N T " ■ ?• o n a y .t s " 5 d a r * 
2 p R im " T I -I E r :i: m e i s " ; c i... k * 

FilEADY 
RUNNH 

TODAY IS 27-MAY-76 
THE T:i:ME is :l,0t55J30 

READY 
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CHAPTER 6 
WORKING WITH DATA FILES 



6.1 INTRODUCTION TO DATA FILES 

You can use files to store data for future use. If you store data in 
your area of memory (such as with DATA statements) , the data is lost 
each time you enter a new program. Data stored in files on peripheral 
devices can be used by many different programs, can be saved for 
future use, and can even be taken to another computer system. 

There are two different kinds of BASIC data files, sequential files 
and virtual array files. 

BASIC treats sequential files in the same way that it treats terminal 
input and output. When BASIC executes an INPUT statement, it requests 
a value from you through the terminal. When BASIC executes an INPUT # 
statement, it requests a value from a sequential file. When BASIC 
executes a PRINT statement, it writes data on the terminal. When 
BASIC executes the PRINT # statement, it writes data in a file. One 
difference between sequential files and terminal input and output is 
that once a file has been written BASIC can read the data. 

BASIC treats virtual array files in the same way that it treats arrays 
in your area of memory. As you can access the elements in an array in 
memory in any order, you can access the elements of a virtual array 
file in any order. This is called random access. For comparisons of 
sequential files and virtual array files and arrays in memory and 
virtual array files, see Section 6.4. 

This chapter describes data files. It is also possible to store BASIC 
programs in files (see Section 9.6). 



6.2 FILE CONTROL STATEMENTS 

Before you can access a sequential or virtual array file, you must 
open it, that is, associate the file with a channel number, use the 
OPEN statement to do this. 

If you open any files in your program, you should close them, that is, 
disassociate them from their channel numbers, when the program 
terminates. Use the CLOSE statement to do this. 
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6.2.1 Opening a Pile (OPEN Statement) 

The OPEN statement can either open an existing file or create a new 
one. The OPEN statement associates the file with a channel number, 
which you use to access the file. 

The format of the OPEN statement is: 



OPEN string 



(FOR INPUT \ 
(FOR OUTPUT) 



AS FILE([#T]expression 



where: 

string is a file specification. It can be any string 
expression. See your BASIC-11 user's guide for a 
complete description of the file specification 
format. 

specifies opening an existing file. 

specifies creation of a new file. 

is the channel number of the file. The channel 
number can have any integer value between 1 and 
the maximum allowed by the system (see your 
BASIC-11 user's guide). If the value of the 
expression is not an integer, BASIC truncates it 
to an integer. 

The OPEN statement opens a sequential file unless the channel number 
specified in the OPEN statement is also specified in a DIM# statement 
(see Section 6.4.1). In this case, BASIC opens a virtual array file. 



FOR INPUT 
FOR OUTPUT 
expression 



If you specify FOR INPUT, BASIC opens an existing 
only read information from it to memory. 



file and you can 



If you specify FOR OUTPUT, BASIC creates a new file. Any existing 
file with the same file specification is superseded when the new file 
is closed (see Section 6.2.2). What actually happens to the old file 
is system dependent; see the BASIC-11 user's guide for your system. 
If you specify FOR OUTPUT for a sequential file, you can only write to 
the file. However, if you specify FOR OUTPUT for a virtual array 
file, you can either write to or read from the file (see Section 6.4). 

Specifying neither FOR INPUT nor FOR OUTPUT for an existing sequential 
file is equivalent to specifying FOR INPUT. If the sequential file 
does not exist, specifying neither is equivalent to specifying FOR 
OUTPUT. 

If you specify neither FOR INPUT nor FOR OUTPUT for an existing 
virtual array file and the file exists, the existing file is opened, 
but, unlike specifying FOR INPUT, you can both write to and read from 
it. To update an existing virtual file, open it with neither FOR 
INPUT nor FOR OUTPUT specified. Specifying neither FOR INPUT nor FOR 
OUTPUT for a virtual array file that does not exist is equivalent to 
specifying FOR OUTPUT. 

Consider these examples of the OPEN statement. 

:l.0 OPEN "DATA I" FOR INPUT AS FILE *:l. 

Opens the existing file specified by DATAl and associates it 
with channel 1. You can only read from the file. 
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15 N:^::5 

20 OPEN "MONEY" FOR OUTPUT AS FILE N 



Creates a new file and supersedes any existing file 
specified by MONEY and associates it with channel 5. 

30 OPEN "LPS" FOR OUTPUT AS F'lL.E #2 

Opens the line printer for output and associates it with 
channel 2. Note that to use a write-only device such as the 
line printer, you must specify FOR OUTPUT. 

You can also use some system-dependent options in the OPEN statement. 
These allow greater flexibility in accessing files. The complete 
format of the OPEN statement is: 

OPEN string [TfOR INPUT I AS FILE |#l]expr IdoUBLE BUfIITrECORDSIZE exprlirMODE expr|j[FILESIZE exprl 

The effects of DOUBLE BUF, RECORDSIZE, MODE, and FILESIZE are 
described in your BASIC-11 user's guide. 



6.2.2 Closing a File (CLOSE Statement) 

The CLOSE statement closes the files specified and disassociates them 
from their channel numbers. After you close a file, you can not 
access the file until you re-open it. 

All programs that open files should close them before terminating. If 
you do not close your file, you can accidently delete it. An existing 
file with the same file specification is not superseded until the new 
file is closed. 

The format of the CLOSE statement is: 



CLOSE 
where: 



[r#J)expression,[[_#Jexpression,([#l)expression, 



expression specifies the channel number of a file to be 

closed. 

If no expressions are specified, then BASIC closes all open files. 

Consider these examples of CLOSE statements: 

:l.00 CLOSE #1 

Closes the file associated with channel 1. 

:l, 10 B^=^4 

120 CLOSE f2}By6'i-l 

Closes the files associated with channels 2,4, and 7. 

130 Ci...CSE 

Closes all open files. 

If a program opens but does not close files, BASIC closes all files 
when it executes a CHAIN (see Section 8.1) or END statement or when it 
terminates the program after executing the highest numbered line in 

6-3 



WORKING WITH DATA FILES 

the program. BASIC does not close files after executing a STOP 
statement. 



6.3 USING SEQUENTIAL FILES 

You use sequential files in the same way that you use terminal input 
and output. However, sequential files allow you to manipulate much 
larger amounts of data in a much shorter time than do terminal input 
and output. 

BASIC accesses data stored in sequential files serially; you must 
read the entire file to read the last item of data. 

You can open a sequential file for input or for output, but you can 
not do both at the same time. To update an existing sequential file 
you must open it for input, open a new file for output, then read the 
data from the input file and write the data including any changes you 
want to the output file. 

The INPUT iexpression and the LINPUT #expression statement (see 
Section 6.3.1) read data from a sequential file opened for input. 
Data is read from the file in the same way that it is read from the 
terminal . 

The PRINT texpression statement (see Section 6.3.2) prints data to a 
sequential file opened for output. The expression after the # (number 
sign) must have the same value as the expression specified in the OPEN 
statement. BASIC stores the same data in a file that it would print 
on a terminal, including spaces and line terminators. 

Once you have opened a data file for input, you can test for the 

end-of-file condition with the IF END # expression statement (see 

Section 6.3.3) and you can restore it to the beginning with the 
RESTORE # expression statement (see Section 6.3.4). 



6.3.1 Reading Data from a Sequential File (INPUT # and LINPUT # 
Statements) 

The INPUT # statement reads data from a file and assigns values to the 
specified variables. The format of the INPUT # statement is: 

INPUT #expr ess ion, variablelfT, variable 2, variable3, . . .l) 

where: 

expression is the channel number of the file except if the 
value of the expression is 0, the values are input 
from the user's terminal. 

variable(s) are assigned the value(s) read in from the file. 
The variables can be any string, integer, floating 
point, or subscripted variables. 

You can also use a colon (:) instead of a comma after the expression. 

If the line of data in the file contains more data than there are 
variables, BASIC ignores the excess data. If tnere is not enough 
data, BASIC looks for more data on the next line. 

Consider the following example which reads 10 numbers from a file and 
prints the sum. 
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L.TSTNH 

10 OPEN "NUMBER" FOR .INPUT AS FILE #1 

20 FOR .T'=:;l. TO ;i.o 

20 :i:nput #:!..- n 

40 T--T+N 

50 NEXT :C 

60 PRINT "THE TOTAL IS" JT 

70 CLOSE #:l 

100 END 

READY 
RUNNH 

THE TOTAL IS 1B7.3 

READY 

The LINPUT # statement inputs a string from a file. BASIC treats 
LINPUT # just as it treats LINPUT; all characters on the input line, 
including commas and quotation marks, are assigned to the string. The 
format of the LINPUT # statement is: 

LINPUT #expression,variablel[[,variable2, variables, . . .1] 

where: 

expression specifies the channel number of the file except if 
it is 0, BASIC inputs a line from the user's 
terminal. 

variable (s) are assigned the value (s) of all the characters 
read from the file up to the line terminator (s) . 
The variables can only be string variables or 
subscripted string variables. 

You can also use a colon (:) instead of a comma after the expression. 

NOTE 

The INPUT # statement and the LINPUT # 
statement cannot be used in immediate 
mode. 



6.3.2 Storing Data in a Sequential File (PRINT # Statement) 

The PRINT # statement prints data to the specified file. The format 
of the statement is: 

PRINT #expression([,list]) 

where: 

expression is the channel number of the file except if the 
value of the expression is 0, data is printed on 
the user's terminal. 

list contains the items to be printed. It can contain 

any numeric and string expressions and TAB 
functions. Items can be separated by commas or 
semicolons with the resulting output format the 
same as the format of the simple PRINT statement. 
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YOU can use a colon {:) instead of a comma after the expression. 

If there are no items in the list, BASIC prints a blank line to the 
file. When there are no items in the list, you need not specify the 
comma or colon after the expression. 

Consider the following example, which creates a sequential file from 
data stored in DATA statements. 

LIST Nil 

:l,0 OPEN "NAMES" FOR OUTPUT AS FILE #:l. Opens file. 

20 READ A*!iA Reads data from 

25 REM program. 

30 IF A*:-" "THEN 32000 Checks to see if it 

35 REM is the last data. 

40 PR:i:nT *:I. !.A$i! " y " 5A Prints two data 

45 REM items 

50 GO TO 20 separated by a 

55 l-iil-LM comma . 

25000 DATA " SARAH " i- ;l. B7 .2> " JOE " ■> 117. 45 

250:1,0 DATA "JANE".- 200!- "J:i:M"s. 89 

25020 DATA "MALCOLM" y 125 

25030 DATA ""y 

32000 CLOSE #1 Closes the file to 

32767 END make it permanent. 

READY 
RUNNH 

READY 

After you run this program, the file specified by NAMES contains: 

SARAH, 187.2 
JOE, 117.45 
JANE, 200 
JIM, 89 
MALCOLM, 125 

You should print a comma (in a string constant) between each data item 
on a line. If you do not do this, you will not be able to input the 
data items from the file. 

Consider the following example, which reads the data file created in 
the previous program and prints the results on the terminal. 

#2 Opens existing file. 

Inputs data from file. 
Prints results. 



LISTNH 








10 opi; 


::n ' 


"NAMES 


" AS f:i: 


20 INf: 


'UT 


#2i 


'N* 


.N 


30 PR] 


:nt 


N$i 


'N 




40 GO 


TO 


20 






READY 










RUNNH 










SARAH 








:l.87.2 


JOE 








:l.1.7,45 


JANE 








200 


JIM 








S9 


MALCOl 


,.M 






125 



?OUT OF DATA AT LINE 20 All data in file has been read. 

READY 
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Note that the line reading the file has the same number of variables 
as the line printing the file has data values. 

Program line reading the file Program line creating the file 

2 :i: HPU T # 2 y N ili p W 40 !"■ f i; 1 N T # :l. y A * P « !- " y A 

See Section 6.3.3 for a way to detect the end of the file before BASIC 
prints an error message. 

The PRINT #expression USING statement prints formatted data to a file 
(see Chapter 7) . 



6.3.3 Checking for the End of Input File (IF END # Statement) 

Use the IF END # statement, a special form of the IF statement, to 
check for the end of a file. The form of the statement is: 



^THEN statement ) 

[[#j)expression^THEN line number > 

(go TO line number) 



IF END 

where: 

expression is the channel number of the file. The value of 
expression can not be and the file associated 
with the expression can not be a terminal. 

If the next attempt to input a value would produce the POUT OF DATA 
(700D) error message, BASIC executes the statement after the THEN or 
transfers control to the specified line number. Otherwise BASIC 
transfers control to the next statement as it does with an IF 
statement (see Section 4.1.3). 

Consider the following example: 

i.,.;i:sTNH 

:l.O OPEN "NAMES" AS FILE «:l. 

20 IF END #:l. THEN F'RINT "END OF FILE" \ GO TO 32000 

30 INPUT #IyA$yA 

40 PRINT A*yA 

50 GO TO 20 

32000 CLOSE #1 

32767 END 



READY 








RUNNH 








SARAH 






.1.87 « 2 


,JOE 






:i,:L7.4S 


JANE 






200 


JIM 






S9 


MALCOL 


M 




:l.25 


END OF 


f 


■ILE 





READY 
Line 20 checks for the end-of-file condition. 



6-7 



WORKING WITH DATA FILES 



Note that the IF END # statement tests if there is one more data item. 
If there is one data item left when IF END checks and your INPUT # 
statement requests two data items, BASIC prints the POUT OP DATA 
(?00D) error message. 



6.3.4 Restoring a File to the Beginning (RESTORE # Statement) 

The RESTORE # statement resets the specified sequential input file 
from its current position to its beginning. The format of the RESTORE 
# statement is: 

RESTORE #expression 

where: 

expression is the channel number of the file to be restored. 



6.4 USING VIRTUAL ARRAY FILES 

Use virtual array files when you want to randomly access the data in a 
file or when an array is too large to fit in memory. 

Virtual array files have several advantages over sequential files: 

1. You can access them in a random, non-sequential manner. The 
last element in a virtual array can be accessed as quickly as 
any element. Contrast this with a sequential file where you 
must read the entire file before reading the last element. 

2. When BASIC stores data in virtual arrays, it does not convert 
them to ASCII characters but rather stores them in internal 
binary representation. Consequently, there is no loss of 
precision caused by data conversion. There is some loss of 
precision with sequential files. 

3.. You can update virtual array files without copying the entire 
file. 

Virtual array files also have several advantages over arrays stored in 
memory: 



much larger arrays 



1. Virtual array files allow you to create 
than can be stored in available memory. 

2. Data can be stored in virtual array files. 

Virtual arrays also have several restrictions, which do not apply to 
arrays in memory: 

1. Virtual array files are slower because BASIC must read the 
file before manipulating the data. 

2. Although BASIC strings in memory can have any length (up to 
255 characters) , you cannot use these dynamic length strings 
in virtual arrays. Strings in virtual array files have a 
fixed maximum length, which you specify in the DIM # 
statement. The maximum character length can be any number 
from 1 to 255. Strings longer than the maximum are 
truncated. Strings shorter than the maximum are padded with 
trailing nulls. When you access an array element, all 
trailing nulls are removed. 
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3. You can only have one virtual array dimensioned in each DIM # 
statement. 

4. You cannot use a virtual array element to store a result from 
a CALL statement (see Section 8.3). 



6.4.1 Dimensioning Virtual Arrays (DIM # Statement) 

To use a virtual array file, place a DIM # statement and an OPEN 
statement with the same channel in a program. After the file is 
opened, the elements of the array can be used in the same way as 
elements of an array in memory. 

The form of the virtual array DIM statement is: 

DIM #integerl, array ([=integer2]) 



where: 



integerl is an integer constant (with or without a percent 
sign) that specifies the channel number of the 
file. 

array is any 1- or 2-dimensional array. It has the same 

format as in the standard DIM statement, 
specifically: 



var iable( integer ([, integer])) 



where the variable can be any string, integer, or 
floating point variable name and the integer (s) 
represents the subscripts. 

integer2 is an integer constant (with or without a percent 
sign) that specifies the maximum length for 
elements in a virtual string array. Its value 
must be in the range 1 to 255. If it is omitted 
for a string array, the maximum length is 16. 

To access the data in an existing virtual array file, ensure that the 
DIM # statement specifies the same data type and subscripts that are 
specified in the program that created the file. The variable name 
associated with the file can be different from the original as long as 
it is the same variable type. 

Consider the following examples: 

10 D!:m #:i. i'A%k200o;' 

20 opi:::n "iwtririT" for ourpij-i as file i 

Creates a new 2001-element integer virtual array file. The 
virtual array is named A% in this program. You can assign 
values to the element and then use the values. 

:l.0 DIM t2!.F9< lOOv :l.0> 

20 OPEN "MAR AY" FOR INPUT AS Fli.E *2 

Opens an existing 2-dimensional, floating point virtual 
array file. The virtual array is named F9 in this program. 
Only input is allowed; if you try to assign a value to an 
element of the array, BASIC prints the 7ILLEGAL I/O 
DIRECTION (?IID) error message. 
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:l.0 DIM #2jA*<:I.00)""32 

20 OPEN "STFJNGS" AS FILE #2 

Opens a l-dimensional string virtual array file where the 
maximum string length is 32 characters. The virtual array 
is named A$ in this program. If the file specified by 
STRNGS already exists, it is opened for updating. If no 
file exists, then a new one is created. 

You should close a virtual file when your program terminates. If you 
do not close an output virtual array, it does not become permanent. 
If you do not close an updated virtual array, the assignments you have 
made may not be incorporated into the file. 



As an example 
an informatio 
employee need 
home phone, 
maintained in 
locate the i 
update withou 
these records 
some index is 



of a use of 
n retrieval 
s a 128-char 
work station 

a long sequ 
nformation f 
t rewriting 

can be main 

needed to a 



virtual array files, consider the problem of 
system for a small organization. Assume each 
acter record containing name, home address, 

and phone extension. If this information is 
ential file, it would take a long time to 
or any employee and it would be impossible to 
the file for every update. Alternatively, 
tained in a virtual array file. In this case 
ssociate a particular employee with a record. 



In the example below, an index file containing badge numbers is used 
to find the record in the master file. The employee's badge number is 
in the same position in the index file as the record is in the master 
file. It is faster to search through the index file than to search 
through the master file because the data elements are much shorter and 
less time is spent reading data from the file. This example program 
prints the employee's name based on the badge number. 



^:l.28 



10 DIM #:l. :-B%(;I.OOO) 

:l.5 REM 

20 DIM #2i.B*(:1.000) 

25 F!;EM 

30 OPEN "BADGE" AS FILE #:l. 

40 OPEN "MAS7'ER" AS FILE #2 

50 PRINT "WHAT IS TI-IE BADGE 

60 INPUT N 

70 FOR I%^=^1 TO 1000 

80 IF B%(I?;;)^:^:N THEN 200 

90 NEXT 1% 

100 PRINT "NO SUCH EMPLOYEE 

110 GO TO 32700 

lis REM 

200 PRINT "NAME 

32700 CLOSE #l:-# 

32767 END 



NUMB El 



" 5SEG$<B*n:%) i-iO:'3o:) 



1001 elements in badge 

number file. 

1001 elements in master 

file. 

Open badge file. 

Open master file. 

Specify a badge number. 

Search for a match in 

the badge number 

file. 

If a match is not found 

print message and 

terminate. 

If a match is found, 

get record of employee, 

B$(I%), and extract the 

name from the record 

(the name is stored 

from the 10th to the 

30th characters) . Then 

terminate. 



6.5 RENAMING A FILE (NAME STATEMENT) 



Use the NAME statement to change the name of data 
statement does not alter the contents of the file, 
NAME statement is: 



files. The NAME 
The format of the 



NAME stringl TO string2 
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where: 

stringl is a file specification of the file to be renamed. 

string2 is the new file specification. If you specify a 
device in stringl, you must specify the same 
device in string2. 

For example: 

10 NAME "MONEY" TO "ACCNTS" 

Changes the name of the file specified by MONEY to ACCNTS. 

See your BASIC-11 user's guide for information on system dependent 
file specifications. 

6.6 DELETING A FILE (KILL STATEMENT) 

Use the KILL statement to delete data files. The format of the KILL 
statement is: 

line number KILL string 
where; 

string is a file specification of the file to be deleted. 
After you delete a file, you can not open or access it in any way. 
For example: 

:i.o K:ri...i... "DATA" 

Deletes the file specified by DATA. 

See your BASIC-11 user's guide for information on system dependent 
file specifications. 
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CHAPTER 7 
FORMATTED OUTPUT - THE PRINT USING STATEMENT 



7.1 INTRODUCTION TO PRINT USING 

When the format as well as the content of output is important, use the 
PRINT USING statement rather than the PRINT statement. The PRINT 
USING statement allows you to control the appearance and location of 
data on the output line, and thus enables you to create formatted 
lists, tables, reports, and forms. 



The following examples print a series of numbers. One program 
the PRINT statement and the other uses the PRINT USING statement. 

PRINT USING 



uses 



PRINT 




LISTNH 




:i.o pr:i:nt 


:i. 


20 PRINT 


:i.oo 


30 pr:i:nt 


:U00000E+06 


40 PRINT 


:i,oo.3 


50 PRINT 


.0123456 


READY 




RUNNH 




:l. 
:i.oo 




:l. .0000 Ol- 


+06 


io 0,3 




:l, .234561:: 


•■••02 



...:i:sTNH 








:i.o PRINT us: 


>ING 


«#: 


:«*#*#.**" fl 


20 PRINT us: 


ING 


"#:| 


:*####.##% :i. 00 


30 pr:i:nt ui. 


iING 


"*: 


^ll^«###.*--*" !- :l. .OOOOOE-J-06 


40 pr:i:nt us 


>ING 


"#, 


^■|Ht# *#.*#" ^:l.00.3 


50 print US: 


>IN6 


"#: 


^#* ###,*#"!' .0123456 


READY 








RUNNH 








1 . 00 








lOO.OO 








1000000.00 








:!.00.30 








.01 









::ady 



lEADY 



Note that PRINT left-justifies numbers and prints certain numbers in E 
format. These characteristics make it difficult to compare numbers. 
In contrast, PRINT USING allows you to format the numbers so that the 
decimal points are aligned making it much easier to compare the column 
of numbers. 

You can designate the following formats with PRINT USING: 

1. Numbers 

a. Number of digits 

b. Location of decimal point 

c. Inclusion of symbols (trailing minus signs, 
asterisks, dollar signs, commas) 

d. Exponential format 
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2. Strings 

a. Number of characters 

b. Left-justified format 

c. Right-justified format 

d. Centered format 

e. Extended field format 

The format of the PRINT USING statement is: 

PRINT USING String, list 

where: 

string is a coded format image of the line to be printed. 
The string is called the format string. If it is 
a string constant, it must be enclosed in double 
quotation marks, not single quotation marks. 

list contains the items to be printed. 

Consider the following example. 

;l.O PRINT USING "H:i: 'LLLLI... YGU weigh ###.# LBS. "y "PAUL'S 145 
The format string is: 

"HI 'LLLLL YOU WEIGH ###.# LBS." 

and the list contains two data items: 

the string constant "PAUL" 
the integer 145 

In the format string there are two fields corresponding to the two 
data items. The first field is 'LLLLL, which corresponds to the first 
data item, "PAUL" and the second field is ###.#, which corresponds to 
the second data item, 145. When BASIC prints the line it prints each 
data item in the same position as its field and in the format 
specified by the field. The rest of the format string, namely "HI 
YOU WEIGH . LBS." is just a message that is printed. The 
output of this example is: 

LISTNH 

:I.O PRINT USING "HI 'LLLLL YOU WEIGH ###.* LBS. " i. "PAUL " y 145 

READY 
RUNNH 

HI PAUL YGU WEIGH :l.45,0 LBS. 

READY 



The way to use format strings to print items is described in Sections 
7.2 and 7.3 and is summarized in Section 7.4. 



7.2 PRINTING NUMBERS WITH PRINT USING 

You can use PRINT USING to print numbers in the format that you want. 
YOU can specify the number of digits reserved for a number, the 
location of the decimal point, certain special symbols to be printed 
with the number, or that the number be printed in E format. 
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7.2.1 Specifying the Number of Digits 

With PRINT USING, you specify the number of places reserved for digits 
in a field. Specify the number of places with a corresponding number 
of number signs (#) . 

For example: 



l..,.i:STNH 

:l.0 PRINT USING 



'###" »:123 



20 PRINT USING "#*#*#" i- :l. 2345 



Three digits reserved. 
Five digits reserved. 



READY 
i:UNNH 

23 
:l.2345 



READY 

If there are not enough digits to fill the field specified, BASIC 
prints spaces before the first digit. For example: 



LISrNH 

:l.0 PRINT USING "*# 

20 PRINT USING " ** 

30 PRINT USING "*# 

40 PRINT USING "## 



## " , 


:i. 


#*"•,• 


- :i, 


m\: " 'J 


1.709 


##" !- 


12345 



READY 
RUNNH 

.1. 

•■■■:i.o 

:l.709 
:l.2345 

READY 



BASIC rounds numbers printed with 
example: 



the PRINT USING Statement. 



For 



LISTNH 

.1,0 PRINT USING 
20 PRINT USING 
30 PRINT USIN(3 



##*" y;l.2&,7 
# " i. 5 . 9 
# " ? 5 . 4 



READY 
RUNNH 



127 



126.7 is rounded to 127. 
5.9 is rounded to 6. 
5.4 is rounded to 5. 



READY 



7.2.2 Specifying the Location of the Decimal Point 

You can reserve places for any number of digits on both sides of the 
decimal point. Specify the location of the decimal point by placing a 
decimal point in the number signs (#) in a field. BASIC always prints 
the digits to the right of the decimal point even if they are Os. 
Consider the following example: 
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LISTNH 

10 PRINT USING "*#.#*#" 1.5.72 

20 PRINT USING "*#.##*" y 39.3758 

READY 
RUNNH 

5.720 Note that BASIC with 5.72 prints spaces to the 
39.376 left of the decimal point, as necessary, but 
prints Os to the right of the decimal point. Also 
READY note that 39.3758 is rounded to 39.376. 

If there are any number signs to the left of the decimal point, BASIC 
prints at least one digit to the left of the decimal point. It is 
as necessary. 

An exception to this format rule is when you specify only one number 

sign to the left of the decimal point for a number that is negative. 

In that case BASIC prints the minus sign to the -left of the decimal 
point instead of a 0. 



7.2.3 Printing a Number That is Larger Than the Field 

If you have not reserved enough digits for a number, BASIC prints a 
percent sign (%) followed by the number and it ignores the format 
specified by the field. BASIC prints the number in the standard PRINT 
statement format. After BASIC prints the number, it completes the 
rest of the PRINT USING statement as usual. Consider the following 
example: 

LISTNH 

10 PRINT US:(:N(3 "###.##" »256.78A Enough digits reserved. 

20 PRINT USING "##.##" !.256.7S6 Not enough digits reserved. 

READY 
RUNNH 

256.79 The number is printed correctly (with rounding). 
% 256.786 There are only two number signs to the left of the 

decimal point; therefore, the number does not fit. 
READY The number is printed in the usual PRINT statement 

format, with a space before and after it and with 

no rounding. 

Be sure to enter a number sign to the left of the decimal point for 

every digit in the number to the left of the decimal point. Also add 

one extra for the sign if the number may be negative. (For an 

alternative method for reserving a place for the minus sign, see 
Section 7.2.4.1) . 

For example: 

Field There are enough places for But not enough places for 

###.## 100.569 -100.569 

.#### .12579 -.12579 
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A number can also become larger than its field because rounding 
increases the number of places needed. For example: 

LIBTNH 

10 PRINT USING "«#*f"y.999 Enough places reserved. 

20 PR:i:nt using "*##"!-. 999 Rounds to 1.00; not enough 

25 PRINT places reserved. 

30 PRINT USING "#.##"!.« 999 Enough places reserved. 

READY 
RUNNH 

«999 Format as specified by field. 

% .999 % followed by number in PRINT 

statement format. 
;l. .00 Enough places reserved and the 

number is printed, correctly 
READY rounded. 



7.2.4 Printing Numbers with Special Symbols 

You can use the PRINT USING statement to print a number with a 
trailing minus sign (instead of the minus sign appearing before the 
number) , with asterisks filling blanks before the first digit, with a 
dollar sign printed before the first digit or with commas inserted 
every three digits. 



7.2.4.1 Printing Numbers with a Trailing Minus Sign - To print the 
minus sign - for negative numbers after the number instead of before 
it, specify a trailing minus sign in a field. The trailing minus sign 
is often used to indicate a debit but can be used with any numbers. 
You must use the trailing minus sign to print a number in an asterisk 
fill or floating dollar sign field (see Sections 7.2.4.2 and 7.2.4.3). 

If a field contains a trailing minus sign, BASIC prints a negative 
number as the number followed by a minus sign and prints a positive 
number as the number followed by a space. 

Consider the following examples. 

Standard Fields Fields with Trailing Minus Signs 

LISTNH LISTNH 

:i.O PRINT USING "**#.*#% ■•■•10. 54 :l.0 PRINT USING "*#.##•••• •^••■•:10.S4 

20 PRINT USING "*#*.#*% :l.0. 54 20 PRINT USING "##.*♦••■•% :l. 0.54 

READY READY 

RUNNH RUNNH 

■■•■:l,0.54 I0.54^^^ 

:l.0.54 10.54 

READY READY 
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7.2.4.2 Printing Numbers with Asterisk Fill - To print a number with 
asterisks (*) filling any blank spaces before the first digit, start 
the field with two asterisks. For example: 



l...:tSTNH 

:l.0 PRINT UB,TNG "*** 

20 PRINT UBIHG "**# 

30 PRINT UBING "*m 






"i'27,95 
" v:i.07 
".,1007.5 



READY 
RUNNH 

>K*27»95 
!f::l.07,00 
:l.007.50 

READY 



Asterisks fill two blank spaces. 
Asterisk fills one blank space. 
No blank spaces. 



Note that the asterisks cause asterisk fill and reserve places for two 
digits. 

To print a number which can be negative, as well as positive, in an 
asterisk fill field, specify a trailing minus sign in the field. For 
example: 



i...:estnh 

:l.0 PRINT USING "Mt 

20 PRINT USING ")K>K# 

30 PRINT USING "XoK* 



lt#- 


•" »: 


>7.95 




ll-lh- 


■ « ,. 


■:l.07 • 




lh#" 


■" y 


■1007. 


5 



READY 
RUNNH 

»t27>9'5 
* .1.0 7.00- • 
:l. 007, SO- 
READY 

If you attempt to print a negative number in an asterisk fill field 
that does not include a trailing minus sign, BASIC halts execution and 
prints the ?PRINT USING ERROR (?PRU) message (see Section 7.5.1). 



7.2.4.3 Printing Numbers with Floating Dollar Signs - To print a 
number with a dollar sign ($) before the first digit, start the field 
with two dollar signs. If the number can be negative as well as 
positive, end the field with a trailing minus sign. Consider the 
following example; 
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LISTNH 
:l.O PR IN 
20 PR IN 
30 PR IN 
35 PR IN 
PR IN 
REM 



40 
45 



T USING 

T USING 

T USING 

T 

T USING 



"$*# 
"$$# 
"$$# 



* * # 



■".|i $##.##■ 



47 REM 

50 PRINT USING "$$##,##■ 

READY 
RUNNH 



"> 77 « 44 There are enough 

"v204f5'5 places reserved in line 10 

"v 22:1.1.42 and 20 but not 30. 

-:l.25,6 Negative value in floating 
dollar sign with trailing 
minus field. 

:I.27»B2 Positive number in same field 
as line 40. 



$77 ,. 44 
*304.55 
X 22:l.:l. *42 

i|i:l.25.60-- 
*:l,27.82 



There were not enough 
to print $ and 2211.42. 
Trailing minus printed. 
Trailing space printed. 



places 



READY 

Note that the dollar signs reserve places for the dollar sign and one 
digit; the dollar sign is always printed. Contrast this with the 
asterisk fill field where BASIC prints asterisks only if there would 
have been leading spaces. 

If you attempt to print a negative number in a dollar sign field which 
does not include a trailing minus sign, BASIC halts execution and 
prints the ?PRINT USING ERROR (?PRU) message (see Section 7.5.1). 



7.2.4.4 Printing Numbers with Commas - To have commas, inserted in a 
number, place a comma anywhere in the field to the left of the decimal 
point (including an assumed decimal point) . BASIC then prints a comma 
every third digit to the left of the decimal point. If there is no 
digit to be printed to the left of the comma, BASIC does not print the 
comma. For example: 



LISTNH 



:l.0 PRINT 
20 PRINT 
30 PRINT 
40 PRINT 
50 PRINT 


Ui; 
US- 
US. 
Uk 
U!. 


ING " 
SING " 
>ING " 
)ING " 
J ING " 


READY 
RUNNH 






lOi-OOO 
759 
$25^694.30 
**7j259 
25 » 239. 00 





*#!-###" 1^:1.0000 
##?###" II 759 
*$#!.♦#»#*" 1-25694.3 
**#!-*#*" i.7259 
####v#.##" !- 25239 



Commas can be combined 
with $$ and **. 
A comma can be anywhere 
in the field to the left 
of the decimal point. 



Comma printed. 
Comma not printed because 
no digit would appear 
to its left. 



READY 
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7.2.5 Printing Numbers in B Format 

To print a number in E format, place 
called up-arrows) at the end of 
reserve space for the capital letter 
sign (which indicates a positive or 
and then the 2-digit exponent. In ex 
the left of the decimal point are not 
first nonzero digit is shifted to the 
is equal to the number of digits 
from the number in standard notation 
the following example: 



four circumflexes ( , also 
the field. The four circumflexes 
E, followed by a plus or minus 
negative exponent, respectively) , 
ponential format the digits to 
filled with spaces. instead the 
leftmost place and the exponent 
that the decimal point is shifted 
(see Section 2.2.1). Consider 



LIS TNI I 

:i.o pr:i:nt usino; "###,##' 

20 PRINT USING "*#*♦##' 



'"»1000 



READY 
RUNNH 



500^00E-02 
:I.OO,OOEfO:l. 



READY 



Note that 5 is shifted to the 
left but 1 is shifted to the 
right. Each exponent is 
adjusted. 



You must reserve a place for a minus sign to the left of the decimal 
point. 

You cannot use exponential format with asterisk fill, floating dollar 
sign, or trailing minus formats. 



7.2.6 Fields Which Exceed BASIC'S Accuracy 

If a field contains more places than there are digits of accuracy, 
BASIC prints Os in all the places following the last significant 
digit. See your BASIC-11 user's guide for the number of digits of 
accuracy in your system. 



7.3 PRINTING STRINGS WITH THE PRINT USING STATEMENT 

By using the PRINT USING statement, you can specify whether strings 
are printed in a left-justified, right-justified, or centered format. 
String fields start with a single quotation mark ('). The single 
quotation mark is optionally followed by a contiguous series of 
uppercase Ls, Rs, Cs, or Es representing left-justified, 
right-justified, centered, and extended string fields, respectively. 

If a string is larger than its specified string field, BASIC prints as 
much of the string as fits and ignores the rest. The only exception 
is that for extended fields BASIC prints the entire string. 
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7.3.1 1-Character String Fields 

A string field consisting of only a single quotation mark is a 
1-character string field. BASIC prints the first character of the 
string expression corresponding to the 1-character string field and 
ignores all following characters. For example: 

i,...i:i;)TNH 

:L0 pr:i:nt using " ' "y"AiEiCDE" 

READY 
RUNNH 

A BASIC ignores the characters 

BCDE. 

READY 



7.3.2 Printing Strings in Left-Justified Format 

If you specify a left-justified field, BASIC prints the string 
starting at the leftmost position. if there are any unused places in 
the field, BASIC prints spaces after the string. If there are more 
characters than places in the field, BASIC truncates the string and 
does not print the excess characters. 

A left-justified field is specified by a single quotation mark 
followed by a series of capital Ls. For example: 



LISTNH 

10 F 
20 I- 
30 f 



■•RINT US:i:NG " 'LLLLLI..." > "ABCD" 

R :i: N T I.) s ;i: N G " ' i... i... i... i... " y " a b c; " 

R :i: N T USING " ' I... i... I... L. " 1. " :l. 2 3 4 5 6 7 S " 



READY 
RUNNH 

ABCD 
ABC 

:l,2345 BASIC ignores the excess 

characters 678. 

READY 



7.3,3 Printing Strings In Right-Justified Format 

If you specify a right-justified field, BASIC prints the string so 
that the last character of the string is in the rightmost place of the 
field. If there are any unused places before the string, BASIC prints 
spaces to fill the field. If there are more characters than places in 
the field, BASIC prints the string as if it were in an equivalent 
left-justified string field. 
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A right-justified field is specified by a single quotation mark 
followed by a series of capital Rs. For examples 

L.ISTNH 

:i.O PFMNT UBING " 'RRRRRR " » " ABCD " 

2 P R :i: N T U S I N G " ' R R R R R I-;- " y " A " 

30 PRINT ub:i:n(:-) " 'rrrrrr% "Xyz" 

READY 
RUNNH 

A BCD 

A 

XYZ 

READY 

If there are more characters than places, BASIC left-justifies the 
string and does not print the excess characters. 



7.3.4 Printing Strings In Centered Fields 

If you specify a centered field, BASIC prints the string so that the 
center of the string is in the center of the field. If the string 
cannot be exactly centered, such as a 2-character string in a 
5-character field, BASIC prints the string one character off center to 
the left. If there are more characters than places in the field, 
BASIC prints the string as if it were in an equivalent left-justified 
string field. 

A centered field is specified by a single quotation mark followed by a 
series of capital Cs. For example: 



l:i:stnh 








:l.O PRINT 


Ui 


;iNB 


"'CCCCCC'v "A" 


20 PRINT 


u; 


SING 


" 'CCCCCCv "AB" 


30 PRINT 


U! 


;iNG 


" 'CCCCCCV "ABC" 


40 PRINT 


m 


>ING 


" 'CCCCCC"!- "ABCD" 


50 PRINT 


u; 


jING 


" 'CCCCCC" f "ABCDK 


READY 








RUNNH 








A 








AB 








ABC 








A BCD 








ABCDE 









READY 

If there are more characters than there are places in the field, BASIC 
left-justifies the string and does not print the excess characters. 
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7.3.5 Printing Strings In Extended Fields 

The extended field is the only field that ensures the printing of the 
entire string. If you specify an extended field, BASIC left-justifies 
the string as it does for a left-justified field. But, if the string 
has more characters than there are places in the field, BASIC extends 
the field and prints the entire string. This extension may cause 
other items to be misaligned. 

An extended field is specified by a single quotation mark followed by 
a series of capital Es. 

Consider the following example which uses extended, left-justified, 
right-justified, and centered fields. 

l:i:stmh 

:i.;i.o :i:nput m> 

:l.20 IF A*"" "STOP" GO TO 150 

:l, 3 I"' R I N T U S I N G F % i- A $ i- A * v A * ? A $ 

:i.40 GOTO :l.:l.0 

:l.50 END 

READY 
RUNNH 

? ABCD 

•J+ABCD ++ADCD -f+ABCD ++ ABCD+i 

? abcdi;;:fg 

■t- ■»■ A B c: D I;M -f A B C: B I!;: r" G f ■{■ A B C B l!i: f ■{■ A B C t:i E ■!■ + The underlined field has been 

'!> A extended. Note how the rest of 

.}..}. A +.fA f+A •}■+ AfV the line is displaced two 

? AB places. 
•{■•}• AB -l+AB +fAB •(•■}■ AB+ + 
? STOP' 

READY 



7.4 SUMMARY OF THE PRINT USING STATEMENT FORMAT 
The format of the PRINT USING statement is: 

PRINT ([#expr,J USING string, list 
where: 

expr specifies the channel number. If it is omitted 

output is to the user's terminal. 

string is a coded format image of the line to be printed. 
The string is called the format string. It can be 
any string expression; however, if it is a string 
constant, it should be delimited with double 
quotation marks, not single quotation marks. 

list contains the items to be printed. The items can 

be any string or numeric expressions. They are 
separated by either commas or semicolons. 
Optionally, the list can end with a comma or 
semicolon to suppress the printing of the carriage 
return. 
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The format string contains a series of fields corresponding to the 
items in the list. Fields correspond to items based on the order in 
which they appear. BASIC prints the item at the location in the line 
and according to the format specified by its corresponding field. 

The type (string or numeric) of each field must be the same as the 
type of its corresponding item. 

The format string is a template of the line to be printed. Each 

character in a field reserves one place for the data item. Any 

character not in a field is printed exactly as it is. Consider the 
following example: 

LISTNH 

:l.0 PRINT USING "THERE ARi;- ###* CHIPS AND f## 'RRRR. %327!.27» "PINS" 

READY 
RUNNH 

THERE ARE 327 CHIPS AND 27 PINS. 

READY 

Compare the format string and the printed line: 

format string: THERE ARE #### CHIPS AND ### 'RRRR. 
printed line: THERE ARE 327 CHIPS AND 27 PINS. 

Each column in the format string corresponds to the same column in the 
printed line. (The only exception is when extended string fields are 
used; these fields expand to the size of the string.) 

It is not necessary to have the same number of fields in the format 
string as items in the list. If there are fewer fields than items, 
BASIC uses the same format string again on a new line for the 
remaining items. For example: 

LIBTNH 

:l.0 X::^^5 \ Y^^^^IO \ C-:l.7 \ D==:l85 

20 PRINT USING "## -f ### ■•::■• #### " v X i. Y. X-f YyC ^ D vC+D 

READY 
RUNNH 



:l.0 



o 



17 -f :l.B5 ■■■^ 202 

READY 
The format string in line 20 contains three format fields: 

"## + ### = ####" 
12 3 
but there are six data items: 

X y X+Y C D C+D 

12 3 4 5 6 
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BASIC prints the first three data items: 

5 + 10 = 15 

and then repeats the format string on a new line for the other three: 

17 + 185 = 202 

But if there are more fields than items, BASIC ignores the excess 
fields. Any characters following the first unused field are not 
printed. For example: 



..l,..l... 



STOCKROOM" K 



l:i.stnh 

:i,o pr:i:nt us:i:ng "there are **# pads :i:n the 

READY 
RIJNNH 

THERE ARE 25 PADS IN THE 

READY 

There are two fields, ### and 'LLLLL, but only one data item. 
Consequently BASIC ignores the second field ('LLLLL) and does not 
print any of the characters after it (STOCKROOM) . 

The items in the list are separated by either commas or semicolons. 
It does not matter which you use. 

If the output of a PRINT USING statement is longer than one line, 
BASIC prints the remainder of the statement on the next line. 



7.4.1 Format of Numeric Fields 

Numeric fields are composed of the special characters described in 
Table 7-1. 



Table 7-1 
Format Characters For Numeric Fields 



Character 



# number sign 
. decimal point 
, comma 

** two asterisks 



$$ two dollar signs 



Effect on Format 



Reserves place for one digit. 

Determines location of decimal point. 

Causes a comma to be printed between every 
third digit. 

Cause leading asterisks to be printed before 
the first digit. The field formed is called 
an asterisk fill field. Asterisks also 
reserve places for two digits. 

Cause a dollar sign to be printed before the 
first digit. The field formed is called a 
dollar sign field. Dollar signs also reserve 
places for one dollar sign and one digit. 
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Table 7-1 (Cont.) 
Format Characters For Numeric Fields 



Character 


Effect on Format 


four circumflexes 
- minus sign 


Cause number to be printed in E format. 
Circumflexes also reserve four places for the 
E notation. 

Causes a trailing minus sign to be printed 
when number is negative. Printing a negative 
number in an asterisk fill or a dollar sign 
field requires that the field also have a 
trailing minus sign. 



Valid fields can be formed by combining these characters in this 
format: 



(**) 



# [,]) # [.]] # 



n 



Each number sign {#) in the above format represents any number of 
number signs. One exception to this format is that neither two dollar 
signs nor two asterisks can be combined with four circumflexes. 



For example: 
Valid Fields 



Sample Output 
$1234.50 
****22 
1,242 
20.72E-02 



Description 
Dollar sign field 
Asterisk fill field 
Comma in field 
E (exponential) format field 



Invalid Fields 



Reason 
** can not be combined with " 
Comma is to the right of the decimal point 
$$ can not be combined with ** 



7.4.2 Format of String Fields 

String fields are composed of a single quotation mark optionally 
followed by a contiguous series of capital Ls, Rs, Cs, or Es. These 
characters' effect on the format are described in Table 7-2. 
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Table 7-2 
Format Characters for String Fields 



Character 


Effect on Format 


' single quotation 
mark 

L 
R 
C 

E 


Starts string field and reserves place 
for one character. 

Causes string to be left-justified and 
reserves place for one character. 

Causes string to be right-justified and 
reserves place for one character. 

Causes string to be centered in field and 
reserves place for one character. 

Causes string to be left-justified, expands 
field, as necessary, to print the entire 
string and reserves place for one character. 



For example: 
Valid String Fields 
'LLLLL 

'CCCCCC 



Sample Output 
ABC 

ABC 



Description 

6-character, left-justified 
string field 

7-character , 
centered string 
field 

single character 
string field 



Invalid String Fields 
• LLRRR 
" RRRR 

•CCCC 



Reason 

Cannot combine two letters in one field. 

Field must start with single quotation 
mark . 

A single quotation mark should only be at 
the beginning of the field. 



7.5 PRINT USING STATEMENT ERROR CONDITIONS 

There are two types of PRINT USING error conditions, fatal and 
nonfatal. When a fatal error occurs, BASIC stops executing the 
program and prints the ?PRINT USING ERROR (?PRU) message. When a 
nonfatal error occurs, BASIC continues to execute the program, 
although the resulting output may not be in the format intended. 
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7.5.1 Fatal Error Conditions 

The ?PRINT USING ERROR (?PRU) error message is produced if: 

1. The format string is not a legal string expression. 

2. There are no valid fields in the format string. 

3. A string is printed in a numeric field. 

4. A number is printed in a string field. 

5. A negative number is printed in a floating dollar sign or 
asterisk fill field which does not specify a trailing minus. 

6. The items in the list are separated by characters other than 
a comma or semicolon. 

7.5.2 Nonfatal Error Conditions 
Nonfatal error conditions occur if: 

1. A number does not fit in the field. 

2. A string does not fit in the field. 

3. A field contains an illegal combination of characters, 

4. Text to be printed forms a valid field. 

If a number is larger than the field allows, BASIC prints a percent 
sign followed by the number in the standard PRINT format. 

If a string is larger than any field other than an extended field, 
BASIC truncates the string and does not print the excess characters. 

If a field contains an illegal combination of characters, the first 
illegal character and all characters to its right are not recognized 
as part of the field. They may form another valid field or they may 
be considered text. if the illegal characters form a new valid field, 
this unintended field may cause a fatal error condition. 
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Consider the following examples of itLleqal combinations of characters 
in numeric fields. 

Illegal Combinations 



Ll'STNH 

.1. p R :i: N T u s ;i: h g " % $ tt§ * « # ^i^ " ^ s . 4 :i.| v 



1.6*30 



READY 
RUNNII 



* 5** 16, 30 
READY 



i...:i;btnh 

.1.0 print using 



Two dollar signs are combined 
with two asterisks. $$ is a 
complete field and 
**##.## forms a second valid 
field. $5 is printed by $$ 
and **16.30 is printed by 



* * * * # . * # ' !... I... I... "I i- 5 . 4 :l, !- "A B C ' 



READY 
RUNNH 



?PRINT USING ERROR. AT LINE 
READY 



The same illegal combination 
appears here, but the next 
data item is a string. BASIC 
produces the fatal error 
message after trying to 
print the string "ABC" in the 
unintended numeric field 



LIBTNH 

:!0 PRINT USING 



!'5,43000E-}09 



READY 
RUNNH 



X 5.43000E+09" 
READY 



Field has only three not 
four circumflexes. The 
number does not fit in 
the field ##.#, a percent 
sign and the number are 
printed followed by the 
three circumflexes. 



LISTNI-I 

:i.O PRINT USING 



"VWXYZ't 



?EADY 
;UNNH 



VWXEEE 
READY 



Two letters can not be 
combined in one field. EEE 
is printed as it is. 
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Attempting to print characters as text produces errors when the 
characters form a valid field. For example: 

.1.0 PR.TNT USING "THERE ARE #*# t *# PENNY NAILS" i- i^'^i-^v :l.(f)»6 

is an attempt to print 

THERE ARE 123 # 4 PENNY NAILS 
THERE ARE 16 # 6 PENNY NAILS 

but instead produces 

RUNNH 

THERE ARE :l.23 4 :l.<f> PENNY NAILS 

TI-IERE ark: a 

READY 

To correctly print characters that would form a valid field, use a 
string field and place the characters as a string constant in the 
list. For example: 

LISTNH 

:l.0 A$^^^"THE BALANCE OF ACCOUNT '###* :i.s $$»##.#*" 

20 PRINT USING M> > " *" !>'363A ^ 107 >56 

READY 
RUNNH 

THE BALANCE OF ACCOUNT #5634 :i.s $3.07 « 56 

READY 

This is also the only way to print a single or double quotation mark 
character with the PRINT USING statement. For example: 

LISTNH 

10 PRINT USING "HE SAIDv 'I'M GOING .'" y '"' i- "'" i- '" ' 

READY 
RUNNH 

HE SAIDi- "I'M GOING," 

READY 
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CHAPTER 8 
PROGRAM SEGMENTATION 

8.1 SEGMENTING PROGRAMS WITH THE CHAIN STATEMENT 

Segmenting a program is the process of breaking one large program into 
two or more smaller programs. You should segment a program if it is 
too large to fit in your area of memory. Another reason for 
segmenting programs is that it is easier to debug several small 
programs than to debug one large program. Once you have segmented a 
large program, you can debug each segment independently. 

You can use the CHAIN statement to break up a program into segments. 
You create each segment as you create any program except that you end 
each segment (except the last) with a CHAIN statement. When BASIC 
executes the CHAIN statement, it transfers control from the current 
segment to a program segment stored in a file. (See Section 9.6 for 
information about storing programs in files.) 

When BASIC executes the CHAIN statement, it closes any open files, 
changes the program name to the name in the file specification, and 
deletes the current program segment from your area. The program 
segment includes all program lines, variables (floating point, 
integer, and string), arrays, and user-defined functions (see Section 
5.4) but does not include any variables or arrays that are listed in 
COMMON statements (see Section 8.1.1). Then BASIC loads and executes 
the program segment in the file you specify. 

The memory required to run the entire program is the amount of memory 
required by the largest segment. Figure 8-1 shows how a program can 
be broken into three segments and how the memory required by the 
program can be reduced. 
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Before 
Segmentation 



Segment 
1 



Segment 
2 



Segment 
3 



Memory 

required 

before 

segmentation 



After 
Segmentation 




Segment 
2 



CHAIN 



J 



I 
I 
1_. 



Segment 
3 



Unused 



._J_L 



IWemory 

required 

after 

segmentation 



Figure 8-1 Segmenting a Program with the CHAIN Statement 

Before the large program is separated into segments, the three 
segments are stored in your area of memory at the same time, as 
indicated on the left. After segmenting, the program starts with only 
segment 1 stored in your area of memory. After BASIC runs segment 1, 
segment 1 chains to segment 2, that is BASIC erases segment 1, 
replaces it with segment 2, and then runs segment 2. After BASIC runs 
segment 2, segment 2 chains to segment 3. The entire segmented 
program fits in the amount of memory required by the largest segment, 
segment 2. 

The format of the CHAIN statement is: 

CHAIN string [[line expression! 



where: 



string 



expression 



is a file specification. It specifies the file 
containing the next program segment. The string 
can be any string expression. 



specifies the line number at which BASIC 
execution in the next program segment. 



starts 



If BASIC cannot find the file you specify, it closes all open files, 
changes the program name, and prints the ?FILE NOT FOUND (?FNF) error 
message. In this case BASIC does not delete any program lines, 
variables, arrays, or user-defined functions. 

If you omit LINE and the expression, BASIC starts execution at the 
lowest numbered line in the next program segment. If you specify LINE 
and an expression whose value is not a legal line number (integers 
from 1 to 32767) , BASIC prints the 7SYNTAX ERROR (?SYN) error message 
and stops program execution before it reads in the next segment. If 
you specify LINE and an expression and the line number is not found in 
the next program segment, BASIC prints the 7UNDEFINED LINE NUMBER 
(?ULN) error message and stops program execution after it reads in the 
next segment. 
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Consider the following example: 

The file specified by "SEGl" contains! 



UT AS If:i:i...i; 



5 pr:i:nt "seg:i. :i:s working' 

:l. D P E N " n A T A :l " F R i J T I 

20 FOR :c~-:L TO :i.oo 

30 PRINT *1-j2»1 
40 NEXT I 
50 CLOSE #:i. 
60 CHAIN "SEG2" 
70 END 



The file specified by "SEG2" contains! 



5 f 


^•RINT "SEG2 IS WORKING" 


:l.0 


OPEN "DATA.!." FOR INPUT 


20 


FOR 1-^:1. TO :l.00 


30 


INPUT *:l, yj 


40 


T^:=TIJ 


50 


NEXT I 


60 


PRINT "THE TOTAL IS".5T 


65 


REM 


70 


CLOSE #:l. 


80 


END 



Prints identifying message, 
*:L Opens output file. 
Writes out all the 
even numbers 2 to 200 
to the file. 
Closes the file. 
Chains to the next 
segment. 



Prints identifying message. 
AS FILE #:l. Opens existing file. 
Inputs the numbers 
from the files 
and adds them together, 
storing the total in T. 
Prints the total on the 
terminal. 
Closes the input file. 



A run of these programs produces the following output: 



RUN seg:i. 
SEGJ. IS WORKING 
SEG2 IS WORKING 
THE TOTAL IS lOlOO 

READY 



Run the first segment. 
Segment 1 executes and 
chains to segment 2. 
Prints the total. 



Remember to save (see Section 9.6.1) a program containing a CHAIN 
statement before running it. Otherwise BASIC erases the program from 
your area in memory and you will not have a copy of it. 



NOTE 

It is faster to chain to programs which 
have been compiled. See Section 9.10 
for a description of the COMPILE 
command . 



8.1.1 Preserving Variables Through CHAIN (COMMON Statement) 

The COMMON statement preserves data when one BASIC program chains to 
another. Any variables or arrays listed in COMMON statements retain 
the same variable names and values after CHAIN is executed. 

COMMON allows one segment of a program to preserve data needed by 
another segment. The only alternative way for chained programs to 
preserve data is by file storage. However, preserving data in memory 
with a COMMON statement is much faster and simpler than first writing 
the data out to a file and then, after chaining, reading it back in. 
Consequently, when you want to preserve data through a CHAIN 
statement, use the COMMON statement. 
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Figure 8-2 shows how data is 
statement. 



preserved in COMMON after the CHAIN 



COMMON 




COMMON 




COMMON 


Segment 
1 








Segment 
2 






CHAIN 





Figure 8-2 CHAIN with COMMON 



At the left, segment 1 including the COMMON statements is in memory. 
When BASIC executes the CHAIN statement in segment 1, it erases all of 
segment 1 except the variables and arrays listed in COMMON statements, 
as illustrated in the center. Then, at the right, BASIC brings 
segment 2 into memory and merges it with the preserved variables and 
arrays. 

The format of the COMMON statement is: 

COMMON list 

where: 

list specifies the variables and arrays to be preserved 

after execution of the CHAIN statement. It is in 
the general form: 

var[[{int[[,intj)] [,var [(int[, int])] , . . .] 

When BASIC executes the CHAIN statement all the variables and arrays 
listed in COMMON statements are preserved. 

When BASIC brings in the new program segment, it checks to see that 
the new segment has corresponding COMMON statements. The lists in the 
COMMON statements of the new segments must contain the same variable 
names, data types, and array dimensions in the same order as the lists 
in the previous segment. You can change the line numbers and the 
number of items specified in each list but you cannot change the order 
of the variables and arrays. 



Consider these examples: 



Program 1 



Program 2 



10 COnMON Ai-ByC'l^ 
20 COMMON UX(IOQ) 
30 COMMON G'IK2;' 



Program 3 

10 COMMON !','>B''DX(100j 



.10 COMMON A?B 

30 COMMON Ci|;»D%(:l.OO) ■.G$(2) 20 COMMON C* 

30 COMMON G*<:2) 



Programs 1 and 2 contain equivalent COMMON statements. However, 
program 3 does not contain equivalent COMMON statements because 
D%(100) appears before C$ . 

If in the new program you do not list the variables and arrays in 
COMMON statements as in the original, BASIC prints the ?COMMON OUT OP 
ORDER (?C00) error message and stops program execution. 
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Consider the following examples: 

The file specified by "SEGCl" contains: 



.1.0 


COMMON :i:<:L00) 


20 


d:i;m jcioo) 


30 


PRINT "SEGCl" 


40 


FOR K:-^^:l. TO 100 


50 


:i; ( K ) ^=^K*2 


60 


J<K)^^:^K*2 


70 


NEXT K 


80 


CHAIN "SEGC2" 


:1.00 END 



Preserves the array 1(100) (in COMMON). 

Dimensions array J (100) (not in COMMON) 

Prints identifying message. 

Assigns the values 

of the even numbers 

between 2 and 200 to 

the elements of each array. 

Chains to the next segment. 



The file specified by "SEGC2" contains: 



10 


COMMON KlOO) 


20 


DIM J (100) 


30 


PRINT "SE(3C2» 


40 


FOR K^:'l TO 100 


50 


T1:^^^T1 + I(K) 


60 


T2^"^T2iJ<K> 


70 


NEXT K 


00 


PRINT "Tl::^:" m 


90 


PRINT "T2^^:^"5T2 


IOC 


) END 



COMMON statement equivalent to original. 

Dimensions new array J (100). 

Prints identifying message. 

Adds all the elements of 

1(100) and 

J(IOO) stored in Tl 

and T2, respectively. 



A run of these programs produces the following output. 

RUN SEGCl 
SEGCl 
3EGC2 
Tl--::^ 10100 
T2':= 

READY 

Note that BASIC preserves 1(100) but does not preserve J(IOO). 

It is possible to extend COMMON by placing additional variables and 
arrays after the existing ones. For example, 



Program Segment 1 

10 COMMON A:'B%<100) 
20 COMMON Ci|i(5) 



Program Segment 2 

10 COMMON Ai.B%(100) 

20 COMMON C$ (5)> F9 < 100 ) 

30 COMMON A* (30) 



Program segment 2 contains the same variables and arrays in COMMON as 
program 1 but also extends program segment I's COMMON statements with 
F9(100) and A$(30) . 

When program segment 2 chains, BASIC preserves all variables and 
arrays listed in the extended COMMON statements. 

If a program containing COMMON statements chains to a program that has 
no COMMON statement, BASIC erases all the variables and arrays 
including those listed in the COMMON statements. 

If a program segment containing COMMON statements chains to another 
program segment containing COMMON, all the variables and arrays in the 
original COMMON statements should appear in the new statements. But 
if the new COMMON statements contain some of the variables and arrays 
(in the correct order) but not all of them, BASIC does not produce an 
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error message. Instead BASIC preserves all the variables specified in 
the original COMMON statements. Even though no error message is 
produced, this situation should be avoided because variables are 
preserved that do not appear in the new program segment's COMMON 
statements. 

BASIC allows you to list up to 255 variables and arrays in COMMON 

statements. If a program contains more than 255 variable and array 

names, BASIC prints the ?T00 MANY ITEMS IN COMMON (?TIC) error 
message. 

BASIC automatically dimensions arrays specified in COMMON statements. 
If you list an array in a COMMON statement, do not also dimension it 
with a DIM statement. If an array is in both a COMMON and a DIM 
statement, BASIC prints the 7ILLEGAL DIMENSION (?IDM) error message 
and stops program execution. 

You cannot specify virtual array files (see Section 6.4) in COMMON 
statements. An alternative is to pass the file specification in a 
string variable listed in COMMON and have the new program reopen the 
virtual array file. 

BASIC erases any existing COMMON area when the user types a RUN, OLD 
or SCR command or when a new program segment has no COMMON statements. 

The COMMON statement is meaningless in immediate mode. 

NOTE 

The COMMON statement does not provide 
any communication with programs written 
in languages other than BASIC (see 
Section 8.3) . 



8.2 MERGING PROGRAM SEGMENTS (OVERLAY STATEMENT) 

You can use the OVERLAY statement to segment programs as you use the 
CHAIN statement. The OVERLAY statement allows easier communication 
between segments than the CHAIN statements, when you use the OVERLAY 
statement the values of all variables and arrays are preserved and all 
open files remain open. However, you must ensure that the line 
numbers of the segments merge correctly, which you need not do with 
CHAIN. 

The OVERLAY Statement merges the current program with a program 
segment stored in a file. 

When BASIC reads a line of the program segment from the file, it 
interweaves the line into the current program. If a line with the 
same line number already exists, BASIC deletes the existing line and 
replaces it with the line from the new program segment. During this 
process all variables and arrays retain their current values, and all 
open files remain open. When all lines of the program segment in the 
file are read into memory and merged with the original program lines, 
BASIC continues execution of the merged program. 

NOTE 

The OVERLAY statement is not a standard 
feature in DIGITAL'S BASICS. If you are 
concerned with transportability of 
programs and ease of upgrading, do not 
use the OVERLAY statement. Use only the 
CHAIN statement for segmenting programs. 
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To segment a program with the OVERLAY statement, break 
into one main program and several overlay segments. 



the program 



The total memory required by a program segmented with the OVERLAY 
statement is the size of the main program plus the size of the largest 
overlay as illustrated in Figure 8-3. 
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Figure 8-3 Segmenting a Program with the OVERLAY Statement 



YOU must ensure that all line numbers in an overlay segment are 
repeated in each subsequent segment. Otherwise the parts of the 
previous segment will still be in memory. 

The format of the OVERLAY statement is: 

OVERLAY string ([line expressionj 

where: 



string 



expression 



is a file specification and can 
expression. 



be any string 



specifies the line to start execution in the new 
program. 



If you omit LINE and the expressio 
next sequential line number after 
you enter the OVERLAY statement 
ignores all subsequent statemen 
and an expression but the value of 
number, BASIC prints the 7SYNTAX 
execution before reading the progr 
an expression but the line nu 
merged program, BASIC prints the ? 
message and stops program executio 



n, BASIC starts execu 
the OVERLAY statement, 
on a multi-statement 
ts on the line. If you 

the expression in not 
ERROR (?SYN) error mess 
am segment. If you spe 
mber specified does not 
UNDEFINED LINE NUMBER 
n after merging the new 



tion at the 

Note that if 

line, BASIC 

specify LINE 

a valid line 

age and stops 

cify LINE and 

exist in the 

{?ULN) error 

segment. 



8-7 



PROGRAM SEGMENTATION 

Consider the following examples: 

The file specified by "MAINPR" contains: 

5 DIM ACLOO) Dimension array A(IOO) 

:f.O PR:i:NT "MA:i:N program" Print message. 

20 FOR :i:-:l. TO .1,00 Fill array A with 

30 A(I)^^^::i:*3 every third number 

40 NEXT :i: from 3 to 300. 

50 PRINT "STILL IN MAIN PROGRAM" Print message. 

:l.00 PRINT "SEGMENT 1" Segment 1 prints message. 

1:1,0 FOR I^-,1. TO ,1,00 

120 IF A(I)/2<>INT(An:)/2) THEN 140 Skip all odd values of A 

130 T::::TfA(I) Add the rest to T. 

140 NEXT I 

150 PRINT "THE SUM IS"5T Print result. 

170 OVERLAY "OML" Overlay to second segment, 

200 GO TO 50 End of main 

300 END program. 

The file specified by "OVL" contains: 

100 PRINT "SEGMENT 2" Print message. 

110 T^^-^) Reinitialize T. 

120 FOR I.-^l TO 100 Add all numbers 

1 3 J ■■:■■■■ T -f A < I > i n a r r ay . 

140 NEXT 1 

150 PRINT "THE SUM IS"5T Print result. 

160 GO TO 30Q Go to end. 

A run of these programs produces: 

RUNNH MAINPR 

MAIN PROGRAM 

STILL IN MAI^f PROGRAM 

SEGMENT 1 

IHE SUM IS 7650 

STILL IN MAIN PROGRAM 

SEGMENT 2 

THE SUM IS 15150 

REAriV 
After BASIC executes the OVERLAY statement, the program in memory is: 

5 DIM A<100) 

10 PRINT "MAIN PROGRAM" 

20 FOR I^"l TO 100 

30 ACI)-I*3 

40 NEXT I 

50 PRINT "STILL IN MAIN PROGRAM" 

100 PRINT "SEGMENT 2" 

llO T-0 

120 FOR I"=l TO 100 

130 T^^^^T-fA(I) 

140 NEXT I 

150 PRINT "THE SUM IS" PT 

lAO GO TO 300 

170 OVERLAY "OVL" 

200 GO TO 50 

300 END 

BASIC continues execution at the next statement after the OVERLAY 
statement, which is line 200. 
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Any user-defined function defined in the main program remains defined 
after the OVERLAY statement is executed if the line defining function 
is not replaced by a line in the overlay segment. 

The overlay segment in the file should not contain any DIM or DEF 
statements. BASIC ignores these statements when reading in an overlay 
segment. 

NOTE 

DO not specify a compiled file with the 
OVERLAY statement. BASIC will not be 
able to merge the programs and will 
produce a ?LINE TOO LONG (?LTL) or ?T00 
LONG TO TRANSLATE (?TLT) error message. 



8,3 CALLING A ROUTINE WRITTEN IN ANOTHER LANGUAGE (CALL STATEMENT) 

The CALL statement causes BASIC to execute a routine written in 
another language. The routine, usually written in assembly language, 
must have been incorporated previously into the BASIC language itself. 
The procedure for incorporating the routines into BASIC and the 
interface for the routines are described in your BASIC-11 user's 
guide. 

The format of the CALL statement is: 

CALL string ([(list)]] 

where: 

string specifies the name of the routine. The string can 
only be a string constant. 

list is the optional argument list. It can contain 

constants, variables, expressions, and arrays. An 
array is listed as a variable name followed by a 
left parenthesis and a right parenthesis. For 
example; A% ( ) specifies the integer array A which 
can have one or two dimensions. 

Consider these examples: 

:l.O l.:.*'LL "AND" (A/: K )»%!•(:;%) 

Calls the routine AND. The variable list contains three 
integer variables, 

20 CALL "ZERO" *;AZ< ) ) 

Calls the routine ZERO, The argument list contains an 
integer array. 

:i c; A L I... " 1-^ E y e. r s " < a * » d it ? c: < 9 ) :) 

Calls the routine REVERS. The argument list contains the 
string variables A$ and D$ and the array C beginning with 
the ninth element. 

BASIC automatically allocates room for an undimensioned array when it 
first encounters a reference to it, but BASIC cannot do this when the 
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reference to the array first occurs in a CALL statement. In this 
case, BASIC prints the 7UNDIMENSI0NED ARRAY IN CALL (?UAC) error 
message . 

BASIC cannot return a result from a routine to an element of a virtual 
array file. If the routine returns a result in an argument, do not 
specify a virtual array element in that position. It is not possible 
to pass an entire virtual array to a routine for any reason. 
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CHAPTER 9 
BASIC-11 COMMANDS 



9.1 KEY COMMANDS 

BASIC has a set of key commands that delete characters and lines being 
typed, stop printout from programs, and interrupt execution of BASIC 
programs. Table 9-1 describes the key commands. 



NOTE 

A CTRL (control) key command is typed by 
pressing the CTRL key while typing the 
appropriate letter. For example, to 
type CTRL/C, press the CTRL key and type 
C. 



Table 9-1 
BASIC-11 Key Commands 



Key 


Explanation 


CTRL/C 
CTRL/0 

CTRL/S 
CTRL/Q 


Interrupts execution of a command or program. 
This is the key to type when your program is 
running and you want to stop it. BASIC prints a 
STOP message. CTRL/C also cancels the effect of 
CTRL/0 and CTRL/S. Be sure to see your BASIC-11 
user's guide for more information on using CTRL/C 
on your system. 

Stops output to the terminal but does not 
interrupt execution of the program. Printing on 
the terminal resumes after BASIC executes an INPUT 
statement, the program ends, or after you type 
another CTRL/0. Typing CTRL/0 cancels any message 
that BASIC is printing. CTRL/0 is different than 
CTRL/S. After you type CTRL/0, BASIC continues 
executing the program but you will not see 
anything printed on the terminal. After you type 
CTRL/S, BASIC waits for you to type CTRL/Q. When 
you have typed CTRL/Q, BASIC continues to print on 
the terminal; no information is lost. 

Temporarily interrupts the printing on the 
terminal. Printing resumes after CTRL/Q or CTRL/C 
is typed. (See description of CTRL/0.) 

Continues the printing on the terminal after a 
CTRL/S has interrupted it. 
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Table 9-1 (Cont.) 
BASIC-11 Key Commands 



Key 


Explanation 


CTRL/U 
RUBOUT 


Deletes the entire line being typed. If you 
notice a mistake on the line you are typing before 
you type the RETURN key, type CTRL/U and BASIC 
ignores the line. CTRL/U can be used when typing 
in program lines or when responding to the INPUT 
or LINPUT statement. 

Deletes the last character typed. If you mean to 
type: 

10 FOR 1=1 TO 3 

but instead type: 

10 FOR 1=3 TO 

press the RUBOUT key four times to delete the 
incorrect characters: 

10 FOR 1=3 TO 

tftf (arrows indicate deleted 
characters) 

and then complete the line by typing: 

1 TO 3 



9.2 LISTING YOUR PROGRAM (LIST AND LISTNH COMMANDS) 

Use the LIST command to print the program lines you have entered. To 
list your entire program, type: 

LIST 

BASIC first prints a header line which consists of the program name, 
date, and the BASIC version number. BASIC then prints your entire 
program. After BASIC prints your program, it prints the READY 
message . 

YOU can also list sections of the program, individual lines, groups of 
lines, or any combination of these. The format of the LIST command 
is : 

LIST[[line specification, line specification, ...J 
where each line specification can be: 

line number Lists specified line. 

line number-line number Lists all lines in range specified. 



line number- 
-line number 



Lists all line numbers from the 
specified line to the end. 

Lists all the line numbers from the 
beginning to the specified line number. 



The LISTNH command is the same as the LIST command except that BASIC 
does not print the header line. 
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Consider these examples: 

Ll'BTNH Lists the entire program without a 

header line. 

LIST 25 Lists a header line and line 25. 

LIST 25p50i.:l.00-200y500" Lists lines 25 and 50, all lines from 

100 through 200, and all lines from 500 
through the end of the program. 
Remember a comma is equivalent to "and" 
and a dash is equivalent to "through". 

NOTE 

To list a program to a file ^r to a line 
printer, use the SAVE command (see 
Section 9.6.1) . 



9.3 EXECUTING A PROGRAM (RUN AND RUNNH COMMANDS) 

After you have entered your program, you can execute it by typing: 

RUN 

When BASIC executes the RUN command, it first prints a header line. 
Then it scans the program, reserving space in memory for all arrays in 
DIM or COMMON statements, defining any user-defined functions in DEF 
statements, and initializing all numeric variables and arrays to and 
all strings to the null string. Finally BASIC starts executing the 
program at the lowest numbered line. 

The RUNNH command has the same effect as the RUN command except that 
BASIC does not print the header line. 

See Section 9.6.3 for a description of executing a program that is 
stored in a file. 



9.4 DELETING PROGRAM LINES (DEL COMMAND) 

In addition to deleting a line by typing the line number followed by 
the RETURN key, you can delete lines with the DEL command. The format 
of the DEL command is: 



DEL line specif ication([,line specification,...]) 



where the line specification can take the same form that it does in 
the LIST command (see Section 9.2) . 

For example: 

DEL :l.O Deletes line 10. 

DEL ;l.00»500 Deletes lines 100 and 500. 

DEL 25 c :l. 00- :l, 50 y 75 > 275-ZOO 

Deletes lines 25 and 75 and all the 
lines between 100 and 150, inclusively, 
and between 275 and 300, inclusively. 
Note that the lines do not have to be 
specified in order. 
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9.5 ERASING THE PROGRAM (NEW, SCR, AND CLEAR COMMANDS) 

The NEW command erases your program storage area in memory. It 
deletes all program lines, variables, arrays, and definitions of 
user-defined functions. It also changes the program name to the one 
specified. 

The format of the NEW command is: 

NEW program name 

where program name can contain the letters A through Z and the digits 
through 9. 

If you type: 

NEW 

without a program name, BASIC requests the new name by printing: 

NEW FILE NAME 

If you type a name, BASIC uses it for the new program name. However, 
if you type the RETURN key, BASIC changes the name to the default 
program name, NONAME . 

After BASIC erases the program and changes the program name, it prints 
the READY message. 

For example: 

NEW MONEY Erases all your program information and 

changes the program name to MONEY. 

Be sure to type the NEW command when you start writing a program. It 
erases any existing program lines. 

The SCR or scratch command does the same thing as the NEW command 
except that it always changes the program name to NONAME. Use the SCR 
command instead of the NEW command when you do not care what the 
program name is. The format of the SCR command is: 

SCR 

BASIC prints READY when it is finished erasing the program. 

The CLEAR command erases the contents of all variables and arrays but 
does not erase any program lines. The CLEAR command returns the space 
used by arrays so that it can be used for program lines. The CLEAR 
command does not change the program name. 

The format of the CLEAR command is: 

CLEAR 

BASIC prints the READY message when it is done. 



9.6 PROGRAMS IN FILES 

Up to this point, all the commands have manipulated the programs in 
your area of memory (see Section 1.7), but this section describes how 
to transfer programs between your area of memory and a file. You can 
store in a file the program that is in your area, and you can transfer 
a program from a file to your area. 
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Programs stored in files are in the same format as sequential data 
files but you use different statements and commands to access program 
files and sequential data files (see Chapter 6 for a description of 
data file statements and see your BASIC-11 user's guide for more 
information on differences between program and data files) . The 
following list describes the statements which access program files. 

Statement Transfers Program 

CHAIN From a file to your area and executes it. 

OVERLAY From a file to your area and merges it with your 
current program. 

The following list describes the commands which access program files. 

Command Transfers Program 

SAVE From your area to a file. 

REPLACE From your area to a file, deleting an existing 
file, if necessary. 

OLD From a file to your area. 

APPEND From a file to your area and merges it with your 
current program. 

RUN From a file to your area and executes it. 

In addition, you can use the UNSAVE command to delete a program file. 

The COMPILE command transfers a program in a special format from your 
area to a file (see Section 9.10). 



9.6.1 Saving the Program in a File (SAVE and REPLACE Commands) 

The SAVE command saves the BASIC program that is currently in your 
area in memory. BASIC transfers the program from your area to the 
file you specify. BASIC writes to the file the same ASCII characters 
that it would print on the terminal if you typed LISTNH. The format 
of the SAVE command is: 



SAVE ([file specif icationj 



If you omit the file specification, BASIC uses the current program 
name as a default specification. 

After BASIC saves the file, it prints the READY message. Once you 
save a file, you can read it into memory by typing the OLD or APPEND 
command (see Section 9.6.2). Alternatively, you can run it from the 
file by typing the RUN file specification command (see Section 9.6.3) 
or by having BASIC execute the CHAIN or OVERLAY statement (see 
Sections 8.1 and 8.2). 

For example: 

SAVE PR061 Stores the current program in the file 

specified by PROGl. 

SAVE LP* Stores (lists) the current program on 

the line printer. 
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The SAVE command does not delete an existing file with the same file 
specification. If a file with the same specification exists and if 
creating a new file would delete the original one, BASIC prints the 
?USE REPLACE (?RPL) error message. To save the program, you should 
either use a different file specification or use the REPLACE command. 

The REPLACE command is like the SAVE command except that REPLACE saves 
a program even if it means deleting an existing file. This difference 
between the SAVE and REPLACE commands helps to prevent you from 
inadvertently deleting program files that you have previously saved. 

The format of the REPLACE command is: 

REPLACE ([file specification]) 

If you omit the file specification, BASIC uses the current program 
name as the default specification. 

For example: 

I '.'!;.' I 'LACE PROGl Saves the current program in the file 

specified by PROGl , deleting any 

existing file with the same file 
specification. 



9.6.2 Restoring a Program from a File (OLD and APPEND Commands) 

The OLD command first erases your area in memory and changes the 
program name (like the NEW command) and then reads in the program from 
the specified file. 

The format of the OLD command is: 

OLD iLfile specification!) 
If you type only: 

OLIi 
BASIC requests the file specification by printing: 

ni..,n f:i:i...e name 

Then type the file specification. If you type only the RETURN key, 
BASIC assumes the file specification NONAME (BASIC looks for a program 
stored in the file specified by NONAME) . 

For example: 

OLD PROGi. Erases the program currently in memory 

and reads in the program in the file 
specified by PROGl. 

NOTE 

If BASIC cannot find the file you 
specify in an OLD command, it changes 
the program name and prints the ?FILE 
NOT FOUND (?FNP) error message. 
However, BASIC does not delete the 
program in your area. 
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The APPEND command merges the program currently in memory with the 
program in the specified file. BASIC reads in the specified file and 
sorts the new program lines into the current program. If one of the 
new lines has the same line number as an existing line, BASIC deletes 
the existing line. 

The format of the APPEND command is: 

APPEND [file specif icationj 

If you type only: 

APPEND 

BASIC requests the file specification by printing: 

OLD FILE NAME 

You then type the file specification. If you just type the RETURN 
key, BASIC assumes the file specification NONAME. 

Entering the APPEND command has the same effect as entering the new 
lines at the terminal and also as entering an immediate mode OVERLAY 
statement. 



9.6.3 Running a Program from a File 

If you want to run a program from a file, specify a file after the RUN 
command . 

The format of the command is: 

RUN file specification 

When you specify a file with the RUN command, BASIC erases all program 
lines and the contents of all variables, changes the program name 
(equivalent to the NEW command, see Section 9.5) reads in the 
specified program (equivalent to the OLD command, see Section 9.5) and 
finally starts the execution of the program. 

The RUN file specification command does not print a header line and is 
equivalent to the RUNNH file specification command. 

See Section 9.3 for a description of the RUN and RUNNH commands 
without a file specification. 

For example: 

i\'UN SPCWR Erases the program currently in memory, 

changes the program name to SPCWR, reads 
in the file specified by SPCWR, and 
starts execution of the program. 
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NOTE 



If BASIC cannot find the file specified 
in a RUN command, it changes the program 
name and prints the ?FILE NOT FOUND 
(?FNF) error message. However, BASIC 
does not delete the program in your 
area. This may happen if you mistype 
the RUNNH command, such as RUNHN: BASIC 
interprets this as a RUN HN command 
where HN is the file specification. 

If the file specification begins with 
NH, BASIC will assume that the NH is 
part of the RUNNH command. For example, 
BASIC interprets a RUN NHT command as 
RUNNH T. To run a program whose file 
specification begins with NH, use the 
RUNNH command. 



9.6.4 Deleting a Program Pile (UNSAVE Command) 

The UNSAVE command deletes the specified program file. The format of 
the UNSAVE command is: 

UNSAVE file specification 

BASIC deletes the file specified and then prints the READY message. 
When the file is deleted, it cannot be restored. 

For example: 

UNSAVE MONEY Deletes the program file specified by 

MONEY. 

The UNSAVE command has the same effect as the KILL statement except 
that the KILL statement deletes data files instead of program files. 



9.7 CHANGING THE PROGRAM NAME (RENAME COMMAND) 

The RENAME command changes the program name to the one specified but, 
unlike the NEW command, does not erase the program. 

The format of the RENAME command is: 

RE NAME [[prog ram namej 
If you just type: 

RENAME 
BASIC requests the new name by printing: 

NEW FILE NAME 

You then type the new program name. If you type only the RETURN key, 
BASIC changes the program name to NONAME. 
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9.8 EDITING A LINE (SUB COMMAND) 



You can change a program line that you have already typed without 
retyping the whole line by using the SUB command. The SUB command 
substitutes the specified characters on the specified line with new 



substitutes the spec 
characters. 

The format of the SUB command is: 

SUB line number xstringlxstring2 

where 



x||_integerj 



line number specifies the line to be edited. 

X can be any character to delimit the strings. X 

must not appear in the strings. The character @ 
is a good choice for a delimiting character 
because it is not used in BASIC programs except in 
string constants. 

stringl is the old series of characters to be deleted. Do 
not delimit the string with quotation marks. 

string2 is the new series of characters to be inserted. 
Do not delimit the string with quotation marks. 

integer specifies the occurrence of stringl in the line. 
If the integer is omitted, the first occurrence is 
substituted. You do not have to type the percent 
sign after the integer. 

After the changes are made, the new line is printed. 

For example, if the current line 10 is: 

i..:i:sTNH :i.o 

.1.0 LET A-B*C 
READY 
then type the SUB command: 

SUB 1.0 Qi^- (a (^ ■■■■■■■■ Q 

:!.0 LET A=^:B*(:; 

READY 

BASIC makes the correction to the line and then prints out the new 
line. 

If the current line is 

LISTNH :l.00 
:l.00 F9""A*S:t:Ni:X)+F9 

READY 
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and you want to change the second occurrence of F9 to 1%, type the SUB 
command: 

SUB 10Q&f9&I7Ar2 
.1.00 F9==A*S:CN(X>fI% 

READY 

SUB can be used to change the line number. For example if the current 
line 20 is: 

l:i:stnh 20 

20 F'r:i:nt AuBsCs-d 

READY 

and you wish to change the line number to 100, type the following SUB 
command: 

SUB 20 (»20(?:l.00(i? 
:l.00 PRINT AyBuCyD 

READY 

BASIC makes the correction and then prints the new line. Note that 
BASIC does not delete the old line but merely copies it. 

However, you cannot use the SUB command to delete the entire line 
number (change a program line to an immediate mode statement) . If you 
try to do this, BASIC prints the 7SUBSTITUTE ERROR (?SUB) message and 
does not execute; the command. This message is also produced if you 
enter the SUB command in the wrong format (such as omitting the 
delimiting character ending stringl) . 

BASIC uses the first character after the line number on the SUB 
command as the delimiting character, but it ignores all spaces and 
tabs until it finds a character. Consequently you cannot use space 
nor tab as a delimiting character. Neither can you use a digit as the 
delimiting character, because BASIC will consider it part of the line 
number . 

If BASIC cannot find the old string you specify, it reprints the line 
with no changes. 

NOTE 

You must type stringl exactly as BASIC 
lists it; consequently, it is useful to 
list a line before entering the SUB 
command. 



9.9 RESEQUENCING A PROGRAM (RESEQ COMMAND) 

You can use the RESEQ command to resequence your program or sections 
of your program. If you have inserted so many lines in your program 
that your line numbers are incremented by 1 and you need to insert a 
new line, you should resequence the program. 
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When BASIC resequences a program, it changes the line numbers 
specified and it also changes any references to the changed line 
numbers (i.e. in GO TO, ON GO TO, IF THEN, IF GO TO, GOSUB, and ON 
GOSUB statements) . 

You can use the RESEQ command to resequence your entire program or a 
segment of the program. You specify the new line number at which you 
want the segment (or the entire program) to start, the range of line 
numbers that you want resequenced (the old line numbers), and the 
increment to be used between each line number. You do not have to 
specify all the values: BASIC uses a default value when you omit one. 

The format of the RESEQ command is: 

RESEQ ([new]),([old^(|^old2]) ([, increment]) 

where 

new specifies the starting new line number. 

oldl specifies the lowest existing line number to be 

resequenced. 

old2 specifies the highest existing line number to be 

resequenced. 

increment specifies the increment to be used between each 
line. 

If you do not specify new, the new starting line number, BASIC uses 
the highest existing line number less than oldl. 

For example if you type 

RESEQ i.:l.05--200 si 

and the highest line number under 105 is 100, BASIC starts the first 
new line at 100 plus the increment 10, or 110. 

If you do not specify the oldl, BASIC starts resequencing at the 
beginning of the program. 

If you do not specify old2, BASIC resequences the program until its 
end. 

If you do not specify the increment, BASIC uses an increment of 10. 
If you type only: 

RESEQ 

BASIC resequences the entire program, giving the first line the line 
number 10 and incrementing each line by 10. 
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For example, if your current program is: 

LISTNH 

10 PRINT "CHErCK BALANC.CNG PROGRAM" 

.1.3 PRINT -LAST BALANCE" S 

lA INPUT B 

:15 PRINT "NEXT CHECK" y 

20 INPUT C 

2.1. IF C==0 THEN 1.35 

25 B-^B-C 

30 GO TO ;15 

135 PRINT "NEXT DEPOSIT"? 

140 INPUT D 

141 IF D=0 THEN 1000 
145 B-~BMi 

150 GO TO 135 

1000 PRINT "SERVICE CHARGE"? 

1001 INPUT S 

1002 B=^:^B-S 

1005 PRINT "BALANCE IS"PB 
1100 END 

READY 

The command 

RESEQ 200 ? 135 •ISO f 20 

resequences lines 135, 140, 141, 145, and 150 to line numbers 200, 
220, 240, 260, and 280 respectively. Instead of line 21 being if C=0 
THEN 135, it is changed to IF C=0 THEN 200. 

The program now is: 

LISTNH 

10 PRINT "CHECK BALANCING PROGRAM" 

13 PRINT "LAST BALANCE"? 

14 INPUT B 

15 PRINT "NEXT CHECK"? 

20 INPUT C 

21 IF C-0 THEN 200 
25 B-B-C 

30 GO TO 15 

200 PRINT "NEXT DEPOSIT"? 

220 INPUT D 

240 IF D==0 THEN 1000 

260 B^::B-fD 

280 GO TO 200 

1000 PRINT "SERVICE CHARGE"? 

1001 INPUT S 

1002 B::--:B-S 

1005 PRINT "BALANCE IB"?B 
1010 END 

READY 

Note that the old line 150 (now is line 280) is GO TO 200 instead of 
the original GO TO 135. 

If you type: 

RESEQ lOOvsrSO 

BASIC resequences the entire program with the new starting line of 100 
and an increment of 50. 

9-12 



BASIC-11 COMMANDS 



If you specify a combination of line numbers that would change the 
order of lines, BASIC prints the ?RESEQUENCE ARGUMENT ERROR (?RES) 
message and ignores the command. For example, if in the original 
example in this section you type: 

RES :i.oO!.:i.o-;?o 

BASIC would try to resequence lines 10, 13, 14, 15, 20, 21, 25, and 30 
as lines 100, 110, 120, 130, 140, 150, 160, and 170, respectively. 
But because there is already a line 135, this would change the order 
of the program lines. Consequently, BASIC would print the error 
message. 



9.10 SAVING A COMPILED PROGRAM (COMPILE COMMAND) 

BASIC does not store the program exactly the way you type it but 
instead compresses or compiles each line. This allows you to fit 
larger programs in your area than you could if BASIC did not compile 
each line. Whenever you list or save your program, BASIC actually 
translates the program from the form in which it is stored to the form 
that you entered. 

The COMPILE command saves a copy of the internal image that BASIC uses 
to store programs. Once you have saved this image, BASIC can read it 
into memory much faster than it can read a file saved by the SAVE 
command . 

The format of the COMPILE command is: 

COMPILE ([file specification]) 

If you omit the file specification, BASIC uses the current program 
name as the default file specification. 

The compiled file can be read in by the OLD or RUN command or by the 
CHAIN statement, but it cannot be read by the APPEND command or the 
OVERLAY statement. 

NOTE 



The file created by the COMPILE command 
should only be used on the same system 
on which it was created. If you want to 
use a compiled file on another version 
of BASIC, you must restore the compiled 
file with an OLD command on the system 
that it was created and then store a new 
file with the SAVE command. The SAVE 
command creates files that can be used 
by other versions of BASIC. 



9.11 CHECKING THE LENGTH OF A PROGRAM (LENGTH COMMAND) 

Use the LENGTH command to find the amount of storage required by the 
BASIC program in memory. This information is useful in determining 
the minimum area in which a specific program can run. 
command is: 



The form of the 



LENGTH 
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The LENGTH command causes BASIC to produce this message: 

mmm WORDS USED, nnn FREE 

where: 

mmm is the number of words currently occupied by your 

program. 

nnn is the number of words remaining free in your area 

in memory. 

The number of words in use includes memory currently needed by the 
BASIC program itself, arrays, string variables, and file buffers. To 
determine the size of the program alone, enter the LENGTH command 
immediately after an OLD or CLEAR command. Arrays are created after 
the RUN command, and file buffers are created when the OPEN statement 
is executed. 

The memory required for string variables and string arrays varies with 
the current values of the strings; consequently, the LENGTH command 
returns the current memory requirements, which may be smaller than the 
maximum memory requirements. 

BASIC prints several error messages when the program exceeds the 
amount of memory available: ?ARRAY TOO LARGE (?ATL) , 7BUFFER STORAGE 
OVERFLOW (?BSO) , PPROGRAM TOO BIG (?PTB) , and 7STRING STORAGE OVERFLOW 
(?SSO) . To reduce program size, follow one or more of the following 
procedures: 

1. Eliminate or reduce unnecessary items such as REM statements, 
long printed messages, and optional keywords such as LET. 

2. Make maximum use of multiple statement lines. 

3. Make efficient use of program loops, subroutines, 
user-defined functions, and multiple branching. 

4. Split up large programs into several smaller programs by 
using the CHAIN statement. 

5. Reduce the size of arrays in memory to the size required (DIM 
statement): . 

6. Reduce the number of variables and arrays in a program by 
reusing them when their contents are no longer needed, 
instead of creating new variables or arrays. 

7. Reduce the number of simultaneously open files by opening a 
file just before it is needed and closing it immediately 
after the last use. 

8. Substitute virtual array files for large arrays in memory. 

After deleting program lines, store the program with the SAVE command 
and restore it with the OLD command to further minimize program memory 
requirements. 
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When BASIC finds an error in a program line, immediate mode statement, 
or command, it prints an error message. This signals that an error 
has occurred and that you should correct the error. Error messages 
are an aid in debugging your program (see Section 1.9). 



When BASIC detects an error in a program 
message in the format: 



line it prints the error 



?message AT LINE xxxxx 

where xxxxx is the line number of the statement containing the error. 

When BASIC detects an error in an immediate mode statement or command, 
it prints the error message in the format: 

?message 

Most of the error messages are fatal error messages; that is, after 
BASIC prints the error message, it interrupts execution of the program 
line, immediate mode statement or command and then prints the READY 
message . 

Certain arithmetic and input errors are nonfatal. When BASIC finds a 
nonfatal arithmetic error, it substitutes a default value for the 
operation causing the error and continues execution. When BASIC finds 
a nonfatal input error, it prints a message and continues execution. 
After certain nonfatal input errors, BASIC requests more input. 

BASIC detects most errors when it is executing a program line, 
immediate mode statement, or command. BASIC does, however, detect 
these errors when you are typing in your program. 

?LINE TOO LONG (?LTL) 

?LINE TOO LONG TO TRANSLATE (?TLT) 

? PROGRAM TOO BIG (?PTB) 

Some versions of BASIC use an abbreviated 3-letter error message. 
These messages and their corresponding long forms are listed in Table 
A-1. See your BASIC-11 user's guide for a description of the error 
messages your system prints. 

Table A-2 lists the long form of the error messages and provides a 
description of each. (The abbreviated forms are listed in 
parentheses.) You can assume an error message is fatal unless the 
first word of the description is "nonfatal." 
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Table A-1 
Abbreviated Error Messages 



Abbreviated 

Form Long Form 



?ARG 7ARGUMENT ERROR 

?ATL ? ARRAY TOO LARGE 

?BDR ?BAD DATA READ 

?BLG ?BAD LOG 

?BRT ?BAD DATA - RETYPE FROM ERROR 

?BSO 7BUFFER STORAGE OVERFLOW 

?CAO 7CHANNEL ALREADY OPEN 

?CCP 7CHECKSUM ERROR IN COMPILE PROGRAM 

?CDF 7CANN0T DELETE FILE 

?CIE 7CHANNEL I/O ERROR 

?CNO 7CHANNEL NOT OPEN 

7C00 7C0MM0N OUT OF ORDER 

7CV0 7C0NTR0L VARIABLE OUT OF RANGE 

7DV0 7DIVISI0N BY ZERO 

7ECC 7ERR0R CLOSING CHANNEL 

7EER 7EXP0NENTATI0N ERROR 

7EII 7EXCESS INPUT IGNORED 

7ENL 7 END NOT LAST 

7ETC 7EXPRESSI0N TOO COMPLEX 

7FAD 7FUNCTI0N ALREADY DEFINED 

7FAE 7FILE ALREADY EXISTS 

7FNF 7FILE NOT FOUND 

7F0V 7FL0ATING OVERFLOW 

7FPV 7PILE PRIVILEGE VIOLATION 

7FSV 7NESTED FOR STATEMENTS WITH SAME CONTROL VARIABLE 

7FUN 7FL0ATING UNDERFLOW 

7FWN 7F0R WITHOUT NEXT 

7ICN 7 ILLEGAL CHANNEL NUMBER 

7 IDF 7 ILLEGAL DEF 

7IDM 7 ILLEGAL DIM 

7 IDT 7 ILLEGAL DATA TYPE 

7IEF 7 ILLEGAL END OF FILE IN COMPILE PROGRAM 

7IFL 7 ILLEGAL FILE LENGTH 

7IFS 7ILLEGAL FILE SPECIFICATION 

7IID 7 ILLEGAL I/O DIRECTION 

7IIM 7 ILLEGAL IN IMMEDIATE MODE 

7INS 7INC0NSISTEMT NUMBER OF SUBSCRIPTS 

7I0V 7 INTEGER OVERFLOW 

7IRS 7ILLEGAL RECORD SIZE 

7ISE 7 INPUT STRING ERROR 

7ISL 7ILLEGAL STRING LENGTH 

7LTL 7LINE TOO LONG 

7MSP 7MISSING SUBPROGRAM 

7NER 7 NOT ENOUGH ROOM 

7NGS 7 NEGATIVE SQUARE ROOT 

7NSM 7NUMBERS AND STRING MIXED 

7NVD 7N0T A VALID DEVICE 

7NWF 7NEXT WITHOUT FOR 

700D 7 OUT OP DATA - 

7PRU 7PRINT USING ERROR 

7PTB 7PR0GRAM TOO BIG 

7 RES 7RESEQ ARGUMENT ERROR 

7RPL 7 USE REPLACE 

7RWG 7RETURN WITHOUT GOSUB 
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Table A-1 (Cont.) 
Abbreviated Error Messages 



Abbreviated 
Form 



Long Form 



?SOB 7SUBSCRIPT OUT OF BOUNDS 

7SS0 ? STRING STORAGE OVERFLOW 

?STL ? STRING TOO LONG 

?SUB 7SUBSTITUTE ERROR 

?SYN ? SYNTAX ERROR 

?TIC ?T00 MANY ITEMS IN COMMON 

?TLT ?LINE TOO LONG TO TRANSLATE 

?TMG ?T00 MANY GOSUB'S 

?UAC 7UNDIMENSI0NED ARRAY IN CALL 

?UFN 7UNDEFINED FUNCTION 

?ULN 7UNDEFINED LINE NUMBER 

7VCU 7VIRTUAL ARRAY CHANNEL ALREADY IN USE 



Table A-2 
BASIC-11 Error Messages 



7ARGUMENT ERROR (7ARG) 

Arguments in a function do not match, in number, range, or type, 
the arguments defined for the function. Ensure that there are 
the correct number of arguments, that their values are in the 
correct range, and that they are the correct type. 

7 ARRAYS TOO LARGE (7ATL) 

Not enough memory is available for the arrays specified in the 
DIM statements. Reduce the size of the arrays or reduce the size 
of the program (see Section 9.11). 

7BAD DATA READ (7BDR) 

Data item input from a DATA statement or from a file is the wrong 
data type. Ensure that the DATA statement or the file contains 
the same data type as specified in the READ or INPUT # statement. 



7BAD DATA - RETYPE FROM ERROR (7BRT) 



Nonfatal . 
statement 
continue. 



Item entered in response 
is the wrong data type. 



to an INPUT or INPUT #0 
Retype item and program will 



7BAD LOG (7BLG) 

Nonfatal. Expression in LOG or LOGIO function is or negative. 
The function returns and BASIC continues execution of the 
program. 



7BUFFER STORAGE OVERFLOW (7BS0) 

Not enough room available for file buffer in your area, 
program size (see Section 9.11). 



Reduce 
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Table A-2 (Cont.) 
BASIC-11 Error Messages 

PCANNOT DELETE FILE (?CDF) 

The file specified in a KILL statement or UNSAVE command cannot 
be deleted. See your BASIC-11 user's guide for more information. 

7CHANNEL ALREADY OPEN (?CAO) 

OPEN Statement specifies a channel that is already associated 
with an open file. Ensure that OPEN statements specify correct 
channel numbers and that files that should be closed are closed. 

7CHANNEL I/O ERROR {?CIE) 

Accessing data in a file produces an error. Ensure that your 
peripheral devices and their storage media are working correctly. 
One possible cause is that the file accessed has length. 

?CHANNEL NOT OPEN (PCNO) 

A PRINT #, PRINT # USING, INPUT #, IF END #, or CLOSE Statement, 
or a reference to a virtual array file specifies a channel number 
not associated with an open file. Check that the OPEN statement 
has been executed and that it specifies the same channel number 
as the program line with the error. 

7CHECKSUM ERROR IN COMPILED PROGRAM (?CCP) 

Pile produced by the COMPILE command contains a format error. 
Use a copy of the program created by a SAVE or REPLACE command. 

7C0MM0N OUT OF ORDER (?C00) 

Variables and arrays in a COMMON statement are not listed in the 
same order as those in a previous segment. Ensure that all 
segments have equivalent COMMON statements. 

7C0NTR0L VARIABLE OUT OF RANGE (?CVO) 

Expression in an ON GOTO or ON GOSUB statement is or negative 
or has a value greater than the number of line numbers listed. 
Ensure that expression has a value in the correct range. 

?DIVISION BY ZERO (?DVO) 

Nonfatal. An expression includes a division by 0. BASIC 
substitutes a value of for that operation and continues 
execution of the program. 

?END NOT LAST (?ENL) 

END Statement is not the highest numbered program line. This 

error message is printed when the END statement is executed. 

Ensure that there is only one END statement in program and that 
it has the highest line number. 

?ERROR CLOSING CHANNEL (?ECC) 

Closing a channel produces an error. Ensure that your peripheral 
devices and their storage media are working correctly. 
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Table A-2 (Cont.) 
BASIC-11 Error Messages 

7EXCESS INPUT IGNORED (?EII) 

Nonfatal. There are more data items than required by an INPUT or 
INPUT #0 statement. BASIC ignores the excess items and continues 
execution of the program. Ensure that data items did not contain 
an unintended comma (e.g., 1,430 instead of 1.430). 

?EXPONENTIATION ERROR {?ERR) 

Nonfatal. An expression includes the operation of raising a 
negative value to a nonintegral power (e.g., (-1)".5). This 
would produce a complex number, which can not be represented in 
BASIC. This message is also produced when a negative value is 
raised to an integral value that has an absolute value greater 
than 255 (e.g. (-1)''256). In both cases, BASIC substitutes a 
value of for the operation and continues execution. 

7EXPRESSI0N TOO COMPLEX (?ETC) 

An expression is too complex for BASIC to evaluate in the area it 
uses for calculations (called the stack) . This condition is 
usually caused by including user-defined functions or nested 
functions in an expression. The degree of complexity that causes 
this error varies according to the amount of space available in 
the stack at the time. Breaking the statement up into several 
statements containing simpler expressions may eliminate the 
error . 

7FILE ALREADY EXISTS (?FAE) 

Creating a file would cause an existing file to be deleted and 
this deletion is not allowed. See your BASIC-11 user's guide for 
more information. 

7FILE NOT FOUND (?FNF) 

BASIC cannot find the specified file. Ensure that the file 
specification was typed correctly and that the file exists. 

7FILE PRIVILEGE VIOLATION (?FPV) 

This operation includes a restricted file operation. See your 
BASIC-11 user's guide for more information. 

7FL0ATING OVERFLOW (?FOV) 

Nonfatal. The absolute value of the result of a computation is 
greater than the largest number that can be stored by BASIC 
(approximately 10"38) . BASIC substitutes a value of for the 
operation and continues execution of the program. 

7FL0ATING UNDERFLOW (?FUN) 

Nonfatal. The absolute value of the result of a computation is 
smaller than the smallest number that BASIC can store 
(approximately 10" (-38)). BASIC substitutes a value of for 
operation and continues execution of the program. 



A- 5 



ERROR MESSAGES 

Table A-2 (Cont.) 
BASIC-11 Error Messages 

?FOR WITHOUT NEXT (?FWN) 

The program contains a FOR statement without a corresponding NEXT 
statement to terminate the loop. Ensure that each loop in the 
program is terminated with a NEXT statement. 

7FUNCTI0N ALREADY DEFINED (?FAD) 

The user-defined function is previously defined. Ensure that 
each function is defined only once and has a unique name. 

? ILLEGAL CHANNEL NUMBER (?ICN) 

The channel specified is not in the range allowed or the IF END 
statement specifies a file on a terminal. See your BASIC-11 
user's guide for information about the range of valid channel 
numbers. 

7ILLEGAL DEF (PIDF) 

There is an error in the DEF statement. Check the format and 
data types in the argument list and defining expression. 

7ILLEGAL DIM (?IDM) 

A subscript in a DIM or COMMON statement is not an integer, an 
array is dimensioned more than once, or an array has more than 
two dimensions. Ensure that an array specification is in the 
correct format and appears only once in the COMMON and DIM 
statements in the program. 

7ILLEGAL END OF FILE IN COMPILED PROGRAM (?IEF) 

File produced by the COMPILE command contains a format error. 
Use a copy of the program created by a SAVE or REPLACE command. 

? ILLEGAL FILE LENGTH (?IFL) 

The FILE LENGTH specified in an OPEN statement is invalid. See 
your BASIC-11 user's guide for information on the valid range of 
FILE LENGTH. 

7ILLEGAL FILE SPECIFICATION (?IFS) 

The file specification is invalid. See your BASIC-11 user's 
guide for information on the format of a file specification. 

? ILLEGAL IN IMMEDIATE MODE (?IIM) 

The INPUT or INPUT # statement cannot be entered in immediate 
mode. Enter the statement in a program line (followed with a 
STOP statement) and execute the statement with an immediate mode 
GO TO statement. 
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Table A-2 (Cont.) 
BASIC-11 Error Messages 

? ILLEGAL I/O DIRECTION (?IID) 

Statement attempts to write to an input file or read an output 
file. Ensure that the channel number specified specifies the 
correct file. If the statement assigns a value to an element of 
a virtual array file, ensure that the file's OPEN statement does 
not specify "FOR INPUT." 

? ILLEGAL RECORD SIZE (?IRS) 

The RECORDSIZE specified in an OPEN statement is invalid. See 
your BASIC-11 user's guide for information on the valid range for 
RECORDSIZE. 

? INCONSISTENT NUMBER OP SUBSCRIPTS (?INS) 

The array is dimensioned with one subscript and referenced by 
two, or vice versa. Ensure that the DIM statement and array 
references are consistent. 

?INPUT STRING ERROR (?ISE) 

Nonfatal. A string entered in response to an INPUT statement 
begins with a quotation mark but is not terminated by the 
appropriate end quotation mark. BASIC assigns to the string all 
the characters between the initial quote and the line terminator 
and continues execution of the program. 

? INTEGER OVERFLOW (?IOV) 

An integer variable is assigned a value greater than 32767 or 
less than -32768 or an integer expression produces a result which 
exceeds this range. Change the variable or expression to a 
floating point format. 

?LINE TOO LONG (?LTL) 

The line entered is longer than BASIC allows; the line is 
ignored. If this message occurs when BASIC is reading a program 
from a file, BASIC stops reading the file. A possible cause is 
that you entered a line near the maximum size with no spaces, but 
when you save the program, BASIC adds spaces making the line too 
long. Split the line into several smaller lines. 

?LINE TOO LONG TO TRANSLATE (?TLT) 

Lines are translated as they are entered; the line just entered 
exceeds the area reserved for translating. The line is ignored. 
If this message is produced while BASIC is reading a program from 
a file, BASIC stops reading the file. Split the line into 
several smaller lines. 

7MISSING SUBPROGRAM (?MSP) 

The CALL statement specifies a nonexistent routine name. Ensure 
that the name is typed correctly (it must consist of upper case 
letters) . 
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Table A-2 (Cont.) 
BASIC-11 Error Messages 

7NEGATIVE SQUARE ROOT (?NGS) 

Nonfatal. The expression in the SQR (square root) function has a 
negative value. The function returns a value of 0. BASIC 
continues execution of the program. 

7NESTED FOR STATEMENTS WITH SAME CONTROL VARIABLE (?FSV) 

A FOR Statement specifies the same control variable as that 
specified by a FOR NEXT loop that the FOR statement is inside. 
Change one' of the control variables to a different variable name 
(in both the FOR and the corresponding NEXT statement). 

?NEXT WITHOUT FOR (?NWF) 

A NEXT Statement is without a corresponding FOR statement. 
Ensure that each loop starts with a FOR statement and ends with a 
NEXT statement which specifies the same variable. This error 
message is also produced if control is transferred into the 
middle of a loop. FOR NEXT loops should only be entered by 
executing the FOR statement. 

?NOT A VALID DEVICE (?NVD) 

File specification contains an invalid device. See your BASIC-11 
user's guide for information about file specifications. 

?NOT ENOUGH ROOM (?NER) 

There is not enough room for the file. See your BASIC-11 user's 
guide for more information. 

7NUMBERS AND STRINGS (?NSM) 

String and numeric values appear in the same expression or they 
are set equal to each other; for example, A$=2. Change either 
the data type of the variable (e.g., A=2) or the expression 
(e.g., A$="2") so that they are consistent. 

?OUT OF DATA (?00D) 

The data list is exhausted and a READ statement requests 

additional data or the end of a file is reached and the INPUT # 

statement requests additional data. Ensure that there is 

sufficient data or test for the end-of-file condition with the IP 
END statement. 

?PRINT USING ERROR (?PRU) 

There is an error in the PRINT USING statement caused when the 
format specification is not a valid string, or is null, or does 
not contain one valid field. The error is also caused when an 
attempt is made to print a numeric value in a string field, a 
string value in a numeric field, or a negative number in a 
floating asterisk or floating dollar sign field that does not 
also specify a trailing minus sign. The message is also printed 
if the items in the list are not separated by commas or 
semicolons. 
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Table A-2 (Cont.) 
BASIC-11 Error Messages 

?PROGRAM TOO BIG (?PTB) 

The line just entered causes the program to exceed the user area 
in memory; the line is ignored. Reduce program size (see 
Section 9.11). If this error occurs when BASIC is reading a 
program from a file, BASIC stops reading the file. 

7RESEQUENCE ERROR (?RES) 

Resequencing the program would cause lines to overlap or existing 
lines to be deleted, or would create an illegal line number. 
Reenter the command with different arguments. 

7RETURN WITHOUT GOSUB (?RWG) 

A RETURN is encountered before execution of a GOSUB statement. 
Do not transfer control to a subroutine except by executing a 
GOSUB or an ON GOSUB statement. 

7STRING STORAGE OVERFLOW (?SSO) 

Not enough memory is available to store all the strings used in 
the program. Reduce program size (see Section 9.11). 

? STRING TOO LONG (?STL) 

The maximum length of a string in a BASIC statement is 255 
characters. Split string into several smaller strings. 

7SUBSCRIPT OUT OF BOUNDS (?SOB) 

The subscript computed is less than zero or is outside the bounds 
defined in the DIM statement. Ensure that expression specifying 
the subscript is in the correct range. 

7SUBSTITUTE ERROR (?SUB) 

There was no separator between the strings in the SUB command or 
the command would create an immediate mode statement. Retype SUB 
command. 

? SYNTAX ERROR (?SYN) 

BASIC has encountered an unrecognizable element. Common examples 
of syntax errors are misspelled commands, unmatched parentheses, 
and other typographical errors. This message can also be 
produced by attempting to read in a program from a file 
containing illegal characters, in which case BASIC stops reading 
the file. Retype program line or ensure that file contains a 
valid BASIC program. 

?T00 MANY GOSUBS (?TMG) 

More than 20 GOSUBS have been executed without a corresponding 
RETURN statement. Change the program logic so that less GOSUB 
statements are executed. 
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Table A-2 (Cont.) 
BASIC-11 Error Messages 



?T00 MANY ITEMS IN COMMON (?TIC) 

There are more than 255 variable and array names in 
A(IOO), A%, A%(10, 10), A$, and A$(5) are all 
different names) . Reduce the number of items in 
converting individual variables to elements of an 
passing fewer items to the next program segment. 



COMMON (A, 
considered 
COMMON by 

array or by 



7UNDEFINED FUNCTIONS (?QFN) 

A user-defined function has been used and not defined. Define 
the function. A function is defined only after the RUN command 
or CHAIN statement is executed. 

7UNDEFINED LINE NUMBER (?ULN) 

The line number specified in an IF, GO TO, GOSUB, ON GO TO, ON 
GOSUB, or CHAIN statement does not exist anywhere in the program. 
Ensure that the line number specified exists in the program. 

7UNDIMENSI0NED ARRAY IN CALL (?UAC) 

The first reference to an undimensioned array appears in a CALL 
statement. Dimension the array with the DIM statement. 

?USE REPLACE 

Saving the program would have caused an existing file to be 
deleted. Use either a different file specification or the 
REPLACE command. 

7VIRTUAL ARRAY CHANNEL ALREADY IN USE (?VCU) 

The DIM # statement specifies a channel number which has already 
appeared in a DIM # statement. Specify another channel number. 

Using BASIC functions improperly causes error messages to be printed. 
Table A-3 lists the functions and describes under which conditions 
BASIC functions produce errors. 
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Table A-3 
Error Conditions in Functions 



All functions 



The argument used is the wrong type. For example, the argument 
is numeric and the function expects a string expression. This 
condition produces 7ARGUMENT ERROR (?ARG) . 



All functions 



The wrong number of arguments is used in a function, or the wrong 
character is used to separate them. For example, PRINT SIN (X,Y) 
produces a syntax error because the SIN function has only one 
argument. This condition produces 7SYNTAX ERROR (?SYN) . 



ASC(string) 



String is not a 1-character string. This condition produces 
? ARGUMENT ERROR (?ARG) . 



BIN(string) 



Character other than blank, 0, or 1 in string or value is greater 
than 2"16. This condition produces 7ARGUMENT ERROR (PARG) . 



CHR$(expr) 



Expression is not in the range to 32767. This condition 
produces 7ARGUMENT ERROR (?ARG) . 



EXP(expr) 



Value of expression is greater than 87. This condition produces 
7EXP0NENTIATI0N ERROR (PEER) . 



FNletter 



The function FNletter is not defined (function cannot be defined 
by an immediate mode statement) , This condition produces 
7UNDEFINE0 FUNCTION (?UFN) . 



LOG(expr) 



Expression is negative or 0. The function returns a value of 
This condition produces ?BAD LOG (?BLG) . 



LOGlO(expr) 



Expression is negative or 0. The function returns a value of 
This condition produces ?BAD LOG (?BLG) . 



OCT{string) 



Character other than blank or digits through 7 appears in 
string, or value is greater than 2"16. These conditions produce 
ARGUMENT ERROR (?ARG) . 
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Table A-3 (Cont.) 
Error Conditions in Functions 



PI 

An argument is included. This condition produces ?SYNTAX ERROR 
(?SYN) . 

SEG$ (string ,exprl ,expr2) 

No additional error conditions. 

SQR(expr) 

Expression is negative. The function returns a value of 0. This 
condition produces 7NEGATIVE SQUARE ROOT (?NGS) . 



TAB 



Expression is not in the range to 32767. This condition 
produces 7ARGUMENT ERROR (?ARG) . 



VAL (string) 



String is not a numeric constant. This condition produces 
? ARGUMENT ERROR (?ARG) . 
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APPENDIX B 
SUMMARY OF BASIC-11 STATEMENTS, FUNCTIONS, AND COMMANDS 

B.l SUMMARY OF BASIC-11 STATEMENTS 

Table B-1 lists the BASIC-11 statements and provides a brief 
description of each. For more information see the section of this 
manual specified on the right. 

Table B-1 
Summary of Statements 

Section 



CALL "routine name" ([(argument list)J 

Calls assembly language routines from a BASIC program. 

CHAIN string [[lINE expressionj 

Terminates execution of the program, loads the program 
specified by string, and begins execution at the lowest line 
number or at the line number specified by expression. The 
string is a file specification. 



3.3 



8.1 



CLOSE 



([#])expr 1 , ([#])expr 2 , ([#]expr 3 , 



6.2.2 



Closes the file(s) associated with the channel number (s) and 
virtual file channel number (s) specified. If no channel 
number is specified, closes all open files. 



COMMON list 



8.1.1 



Preserves values and names of specified variables and arrays 
when the CHAIN statement is executed. Both string and 
arithmetic variables and arrays can be passed. The 
statement also dimensions the specified arrays. List is in 
the general format: 



varl 



(expr ([,expr])) ,var2 (expr [[,expr]]) 
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Table B-1 (Cont.) 
Summary of Statements 



Section 



DATA list 



3.1.3 



Used in conjunction with READ to input listed data into an 
executing program. Can contain any mixture of strings and 
numbers. Items must be separated by commas. 



DEF FNletter 



(varl[L,var2 , . . . ,var5j) =expression 



5.4 



Defines a user function. Letter may be any single letter A 
through z. 

DIM list 

Reserves space in memory for arrays according to the 
subscript(s) specified after the variable name. List is in 
the general format: 

varl(expr([,exprj]) ,var2(expr [[,exprj) , . . 

DIM #integerl,variable(integer2([, integer 3j)([=integer4]) 6.4.1 

Dimensions the virtual array file associated with the 
channel number specified by integer 1. Integer4 specifies 
the string size for string virtual arrays. 



END 



4.3 



Optional. Placed at the physical end of 
terminate execution. 



the program to 



FOR var=exprl TO expr2 ([sTEP exprsj 4.2.1 

Sets up a loop to be executed the specified number of times. 

GOSUB line number 4.4,1 

Unconditionally transfers control to specified line of 
subroutine. 

GO TO line number 4.1.1 

Unconditionally transfers control to specified line number. 



IF relational expression 



THEN S 
THEN 1 
GO TO 




4.1.3 



Conditionally executes the specified statement or transfers 
control to specified line number. When the condition is not 
true and a statement is specified, execution continues at 
the next sequential line. When the condition is not true 
and a line number is specified, execution continues at the 
next sequential statement. The expressions and the 
relational operator must all be string or all be numeric. 
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Table B-1 (Cont.) 
Summary of Statements 



Section 



:atement ) 
Lne number / 
Line number) 



(THEN Stat 
IF END #expr <THEN line number } 6.3.3 

(go TO 1] 



Tests for end-of-file condition of input sequential file 
associated with channel number specified by expression. 

INPUT ([#expr ,Jvariablel[[, variable?., .. .J 3.1.1 and 6.3.1 

Inputs data from your terminal or from the file associated 
with the channel number specified by expression. Variables 
may be arithmetic or string. 

KILL string 6.6 

Deletes file specified by string. 

([letJ variable=expression 2.5 

Assigns value of expression to the specified variable. 
Variable and expression must be of the same type, either 
numeric or string. 

LINPUT ([#expr ,])string varl([,string var2,...J 3.1.2 and 6.3.1 

Inputs string data from the terminal or from the file 
associated with channel number specified by expression. 
Variables can only be string variables. 

NAME stringl TO string2 6.5 

Renames file specified by stringl to name specified by 
string2. 

NEXT variable 4.2.1 

Placed at end of FOR loop to return control to FOR 
statement. 

ON expression GOSUB line numberl ([, line number2,line number 3 ,.. .j 4.4.2 

Conditionally transfers control to subroutine at one line 
number specified in list. Value of expression determines 
the line number to which control is transferred. 

ON expression GO TO line numberl [[, line number2,line number 3 , . . .J) 4.1.2 

Conditionally transfers control to one line number in the 
list. Value of expression determines the line number to 
which control is transferred. 

ON expression THEN line numberlj, line number2 , . . .J 

Equivalent to ON GO TO. 
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Table B-1 (Cont.) 
Summary of Statements 



Section 

AS FILE |[lt||expr[fclOUBLE BUf|[C RECORDSIZE expJ|[lMODE expr|f[FILESIZE exprl 

6.2.1 



OPEN string (jFOR INPUT 1 
[Ifor OUTPUTJ 



Opens a file specified by string for input or output as 
specified (assumes input if neither specified) and 
associates file with the channel number specified by exprl. 
String is a file specification. 

OVERLAY string ([lINE expression]) 7.2 

Overlays or merges the program currently in memory with the 
program in the file specified by string, and when overlay is 
completed, transfers control to either the next sequential 
BASIC line number or the line number specified by 
expression. String is a file specification. 

PRINT ([#expr,]]([list]| 3.2 and 6.3.2 

Prints items in list on the terminal or to the file 
associated with channel number specified by expression. 
List can consist of string and arithmetic expressions and 
the TAB function. Items can be separated by either commas 
or semicolons. 

PRINT ([#expr,]) USING string, list 7.4 

Prints items in list on the terminal or to the file 
associated with channel number specified by expr in the 
format determined by string. List can consist of string and 
arithmetic expressions. Items can be separated by either 
commas or semicolons. 

RANDOMIZE 5.2.3 

Causes the random number generator (RND function) to produce 
different random numbers. 

READ variablel[r,variable2, . . .1 3.1.3 

Assigns values listed in DATA statements to specified 
variables. Variables may be string or numeric, 

REM comment 1.6 

No effect on execution of program. Contains explanatory 
comments about the BASIC program. 

RESET([#expr]) 

Equivalent to RESTORE. 

RESTORE[[#expr]) 3.1.3 and 6.3.4 

Resets either the data pointer or, when specified, the input 
file associated with the specified channel number to the 
beginning . 
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Table B-1 (Cont.) 
Summary of Statements 

Section 

RETURN 4.4.1 

Terminates a subroutine and returns control to the statement 
following the last executed G0SU8 statement. 

STOP 4 . 3 

Terminates execution of the program. Placed at logical 
end(s) of the program. 



B.2 SUMMARY OF BASIC-11 FUNCTIONS 

ARITHMETIC FUNCTIONS 

Table B-2 lists the BASIC-11 arithmetic functions and provides a 
description of each. For more information about a function, see the 
section of this manual specified on the right. 

Table B-2 
Summary of Arithmetic Functions 

Section 

ABS(expr) 5.2.2.4 

Returns the absolute value of the expression. 

ATN(expr) 5.2.1 

Returns the arctangent of the expression as an angle in 
radians in the range + or - pi/2. 

COS(expr) 5.2.1 

Returns the cosine of the angle specified by the expression 
in radians. 

EXP(expr) 5.2.2.2 

Returns the value of e raised to the expression power where 
e is (approximately) 2.71828. 

INT(expr) 5.2.2.3 

Returns the greatest integer less than or equal to the 
expression. 

LOG(expr) 5.2.2.2 

Returns the natural logarithm of the expression. 
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Table B-2 (Cont.) 
; Summary of Arithmetic Functions 

Section 

LOGlO(expr) 5.2.2.2 

Returns the base 10 logarithm of the expression. 
PI 5.2.1 

Returns the value of pi (3.141593). 
RND([(expr)J 5.2.3 

Returns a random number between and 1. 
SGN(expr) 5.2.2.5 

Returns a value indicating the sign of expression. 

SIN(expr) 5.2.1 

Returns the sine of the angle specified by expression in 
radians. 

SQR(expr) 5.2.2.1 

Returns the square root of the expression. 

TAB(expr) 3.2.3 

Causes the terminal type head to tab to column number 
specified by the expression (valid only in PRINT 
statements) . 

Table B-3 lists the BASIC-11 string functions and provides a 
description of each. For more information about a function, see the 
section in this manual specified on the right. 

Table B-3 
Summary of String Functions 

Section 

ASC(string) 5.3.2.1 

Returns as a decimal number the 8-bit internal code (ASCII 
value) for the 1-character string expression. 

BIN(string) 5.3.2.3 

Converts a string expression containing a binary number to a 
decimal value. Blanks are ignored. 

CHR$(expr) 5,3,2.1 

Generates a 1-character string whose ASCII value is the 
low-order 8 bits of the integer value of the expression. 
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Table B-3 (Cont.) 
Summary of String Functions 

Section 

CLK$ 5.5 

Returns the time as a string in the form hh:mm:ss (for 
example 12:30:15). 

DAT? 5 . 5 

Returns the date as a string in the form dd-mon-yr (for 
example 07-FEB-75) . 

IiEN(string) 5.3.1.1 

Returns the number of characters in the string. 

OCT(string) 5.3.2.3 

Converts a string expression containing an octal number to a 
decimal value. Blanks are ignored. 

POS (stringl,string2, expr ) 5.3.1.3 

Searches for and returns the position of the first 
occurrence of string2 in stringl. The search starts at the 
character position specified by expression. 

SEG$ (string,exprl,expr2) 5.3.1.4 

Returns the string of characters in position specified by 
expressionl through the position specified by expression2. 

STR$(expr) 5.3.2.2 

Returns the string which represents the numeric value of the 
expression. 

TRM? (string) 5.3.1.2 

Returns string without trailing blanks. 

VAL(string) 5.3.2.2 

Returns the value of the decimal number contained in the 
string . 



B.3 SUMMARY OF BASIC-11 COMMANDS 

Table B-4 lists the BASIC-11 commands and provides a description of 
each. For more information about a command, see the section of this 
manual specified on the right. 
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Table B-4 
Summary of Commands 

Section 

APPEND ([file specif icationj 9.6.2 

Merges the program in your area in memory with the program 
specified by the file specification. 

CLEAR 9,5 

Initializes all variables to and all string variables to 
nulls and deletes arrays. 

COMPILE [[file specif icationj 9.10 

Saves a compiled version of the program. 
DEL line specif ication[[,line specification,...! 9.5 

Deletes specified lines. 
LENGTH 9.11 

Prints on your terminal the size of the program in memory 
and the size of the remaining free memory. 

LIST([NHj([line specif icationl, line specif ication2 ,.. .J 9.2 

Prints on the terminal the specified line(s) of the program 
currently in memory. NH suppresses the printing of the 
header line. 



NEW [[program namej 



9.5 



Erases your storage area and sets the current program name 
to the one specified. 

OLD [[file specif icationj 9.6.2 

Erases your storage area and inputs the program from the 
specified file. 

RENAME program name 9.7 

Changes the current program name to the one specified. 

REPLACE [file specif icationj 9.6.1 

Replaces the specified file with the current program. 



RESEQ 



[{new line numberj ,[[old line numberi|[[-old line number 2J ,([incrementj 
IL 9.9 J 



9.9 
Resequences program as specified. 



run|nhJ 



9.3 



Executes the program in memory. NH suppresses the printing 
of the header line. 
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SUMMARY OF BASIC-11 STATEMENTS, FUNCTIONS, AND COMMANDS 

Table B-4 (Cont.) 
Summary of Commands 

Section 

RUN|NH]]file specification 9.6.3 

Erases your storage area, inputs the program from the 
specified file, and then executes the program. Does not 
print header line in any case. 

SAVE ([file specif icationj 9.6.1 

Outputs the program in memory to the specified file. 

SCR 5J.5 

Erases your storage area and changes the program name to 
NONAME . 

SUB line numberxstringlxstring2|[_xintegerj) 9.8 

Substitutes the integer occurrence of stringl with string2 
on line specified. x is a delimiter and can be any 
character such as @. 

UNSAVE file specification 9.6.4 

Deletes specified file. 

Key Commands 

CTRL/C 9.1 

Interrupts execution of a command or program and causes 
BASIC to print the READY message. See your BASIC-11 user's 
guide for more information about CTRL/C. 

CTRL/0 9 • 1 

Causes all further terminal output to be discarded. If an 
INPUT statement is encountered, CTRL/0 is retyped, or the 
program is terminated, printing resumes. 

CTRL/Q 9 • 1 

Continues output to the terminal; cancels effect of CTRL/S. 

CTRL/S 9.1 

Temporarily suspends all output to terminal until CTRL/Q is 
typed; allows alphanumeric display terminals to be read or 
photographed before data is moved off screen. 

CTRL/U 9 • 1 

Deletes the entire current input line (provided the RETURN 
key has not been typed) . 

RUBOUT 9.1 

Deletes the last character typed. 
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APPENDIX C 
ASCII CHARACTER SET 



The following table shows, with the corresponding octal and decimal 
codes, the 128-character ASCII (American Standard Code for Information 
Interchange) character set. These codes are used to store ASCII data 
in files and to store them internally. 

The BASIC user can convert an ASCII value to the corresponding string 
character with the CHR$ function and can convert a string character to 
the corresponding ASCII value with the ASC function (see Section 
5.3.2.1) . 

BASIC also uses the ASCII values of the characters in string 
comparisons (see Section 2.4.3). 

The octal code is provided for reference. BASIC does not support 
octal numbers except through the OCT function (see Section 5.3.2.3). 

ASCII characters are stored internally and in files in eight bits. 
The eighth (high order) bit is normally 0. 



Table C-1 
ASCII Character Set 





ASCII 






ASCII 


7-Bit 






Decimal 


Octal 






Code 


Code 


Character 







000 


NUL (CTRL/O) 




1 


001 


SOH (CTRL/A) 




2 


002 


STX (CTRL/B) 




3 


003 


ETX (CTRL/C) 




4 


004 


EOT (CTRL/D) 




5 


005 


ENQ (CTRL/E) 




6 


006 


ACK (CTRL/F) 




7 


007 


BEL (CTRL/G) 




8 


010 


BS (CTRL/H) 




9 


Oil 


HT (CTRL/ I or TAB) 




10 


012 


NL (NEW LINE or LINE 


FEED) 


11 


013 


VT (Vertical TAB) 




12 


014 


FF (Form Feed) 




13 


015 


RT (Return) 




14 


016 


SO (CTRL/N) 




15 


017 


SI (CTRL/0) 




16 


020 


DLE (CTRL/P) 




17 


021 


DCl (CTRL/Q) 




18 


022 


DC2 (CTRL/R) 
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Table C-1 (Cont.) 
ASCII Character Set 



ASCII 
Decimal 
Code 



ASCII 

7-Bit 
Octal 
Code 



Character 



19 


023 


20 


024 


21 


025 


22 


026 


23 


027 


24 


030 


25 


031 


26 


032 


27 


033 


28 


034 


29 


035 


30 


036 


31 


037 


32 


040 


33 


041 


34 


042 


35 


043 


36 


044 


37 


045 


38 


046 


39 


047 


40 


050 


41 


051 


42 


052 


43 


053 


44 


054 


45 


055 


46 


056 


47 


057 


48 


060 


49 


061 


50 


062 


51 


063 


52 


064 


53 


065 


54 


066 


55 


067 


56 


070 


57 


071 


5b 


072 


59 


073 


60 


074 


61 


075 


62 


076 


63 


077 


64 


100 


65 


101 


66 


102 


67 


103 


68 


104 


69 


105 


70 


106 


71 


107 


72 


110 



DC3 (CTRL/S) 

DC4 (CTRL/T) 

NAK (CTRL/U) 

SYN (CTRL/V) 

ETB (CTRL/W) 

CAN (CTRL/X) 

EM (CTRL/Y) 

SUB (CTRL/Z) 

ESC (ESCAPE) 

FS (CTRL/X) 

GS (CTRL/]) 

RS (CTRL/") 

US (CTRL/) 

SP (space bar) 



/ 

1 
2 
3 
4 
5 
6 
7 
8 
9 



> 

? 

@ 
A 
B 
C 
D 
E 
F 
G 
H 
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Table C-1 (Cont.) 
ASCII Character Set 



ASCII 

Decimal 

Code 



ASCII 
7-Bit 
Octal 
Code 



Character 



106 


152 


107 


153 


108 


154 


109 


155 


110 


156 


111 


157 


112 


160 


113 


161 


114 


162 


115 


163 


116 


164 


117 


165 


118 


166 


119 


167 


120 


170 


121 


171 


122 


172 


123 


173 


124 


174 


125 


175 


126 


176 


127 


177 



I 
J 

K 
L 
M 
N 

P 

Q 
R 
S 
T 
U 
V 
W 
X 
Y 
Z 
[ 

\ 
] 



a 
b 
c 
d 
e 
f 

g 

h 
i 

J 
k 
1 
tn 
n 
o 
P 

q 

r 

s 
t 
u 

V 

w 

X 

Y 
z 



RUBOUT 
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INDEX 



Abbreviated error messages, A-2 
to A- 3 

ABS function, 5-8 

Absolute value function, 5-8 

Accessing data in sequential 
files, 6-4 

Accuracy, digits of, 7-8 

Addition, 2-8 

Algebraic functions, 5-1 

Alphabetical order, comparing 
strings in, 2-11 to 2-12 

Alphanumeric strings, 2-6 

Ampersand, string concatenation 
operator, 2-10 

APPEND command, 9-6 

Area in memory, program storage, 
1-7 

Arithmetic 

expressions, 2-8 to 2-10 
functions, 2-13, 5-1 to 5-11 
functions, summary, B-5, B-6 
operator precedence, 2-10 
operators, 2-8 to 2-10 
relational expressions, 2-11 
relational operators, 2-11 

Arrays, 2-7, 2-14 to 2-18 
compared to virtual array 

files, 6-8 
dimensioning, 2-16 to 2-18 
dimensioning virtual, 6-9 
first element in, 2-15 
initializing, 9-4 
numeric, 2-17 
reserving space for, 2-16 
storage order of, 2-16 
string, 2^18 

ASC function, 5-17 

Ascending order, execution of 

statements in, 1-3, 1-7, 4-1 

ASCII, C-1 

character set, 1-2, C-1 to C-3 
code conversions, 5-17 
values, C-1 to C-3 
values in comparing strings, 
2-12 

Assembly language routines, 8-9 

Assigning values to variables, 
2-13 

Asterisk 

fill in PRINT USING statement, 

7-6 
multiplication operator, 2-8 

ATN function, 5-2 



Backslash, 1-5, 1-6 

Base a log, 5-5 

Base e log, 5-5 

Base 10 log, 5-6 

BASIC, X, 1-rl 

character set, 1-2 
program structure, 1-1 

BASIC-11, X, 1-1 

Beginning of arrays, 2-15 

BIN function, 5-20 

Binary functions, 5-20 

Blank lines, printing, 3-8 

Block I/O, 6-8 

Braces, ix 

Brackets, square, ix 

Branch, computed, 4-3 

Branching, 4-1 to 4-3 

Branching, multiple, 4-3 



C in PRINT USING statement, 7-10 
Calculating expressions in the 

PRINT statement, 3-8 
Calculator, using BASIC as a, 1-9 
CALL statement, 8-9 
Calling 

routines, 8-9 

user-defined functions, 5-22 
Centered format, 7-10 
Centering strings, 7-10 
Chain, preserving variables through, 

8-3 
CHAIN statement, 8-1 to 8-6 
Chaining to compiled programs, 

8-3 
Changing a program line, 1-7, 9-9 
Changing the program name, 9-8 
Channel number, file, 6-2 to 6-5, 

6-7 
Characters 

ASCII, 1-2, C-1 

BASIC, 1-2 

conversion, 5-17 

nonprinting, 1-2 
Checking 

for the end of input file, 6-7 

the length of a program, 9-13 
CHR$ function, 5-17 
Circumflex, exponentiation operator, 

2-8 
CLEAR command, 9-4 
CLK$ function, 5-26 
CLOSE statement, 6-3 
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Closing files, 6-3, 6-10 
Closing virtual arrays, 6-10 
Comma in PRINT statement, 3-9 

to 3-12 
Commands, 1-8, 9-1 to 9-14 
APPEND, 9-6 
CLEAR, 9-4 
COMPILE, 9-13 
DEL, 9-3 
key, 9-1 
LIST, 1-8, 9-2 
LISTNH, 9-2 
NEW, 9-4 
OLD, 9-6 
RENAME, 9-8 
REPLACE, 9-5 
RESEQ, 9-10 to 9-13 
RUN, 1-8, 9-3 

RUN file specification, 9-7 
RUNNH, 9-3 
SAVE, 9-5 
SCR, 9-4 
SUB, 9-9 

siimmary of, B-8 to B-9 
summary of key, B-9 
UNSAVE, 9-8 
Commas in PRINT USING statement, 

7-7 
Comment, 1-6 
COMMON statement, 8-3 to 8-6 

order of, 8-4 
Communicating data between 

program segments, 8-4, 8-6, 
8-9 
Comparing strings, 2-12 to 2-13 
COMPILE command, 9-13 
Compiled programs 
chaining to, 8-3 
efficiency of, 9-13 
Computed 

branch, 4-3 
GO TO statement, 4-3 
GOSUB statement, 4-17 
Concatenation, string, 2-10 
Conditional transfer, 4-3 to 

4-6 
Constants, 2-1 to 2-4 
integer, 2-1, 2-3 
numeric, 2-1 
string, 2-1, 2-3 
Control 

shifting, 4-1 
statements, 4-1 to 4-17 
variable in ON GO TO statement, 
4-3 
Conventions, docxamentation, ix 

to X 
Conversions 

ASCII code, 5-17 
character, 5-17 
functions, 5-16 to 5-21 

Index- 



Copying segments from a string, 

5-15 
COS function, 5-2 
Cosine function, 5-2 
Counter in loops, 4-8 
Creating files, 6-2 
CTRL keys 

CTRL/C, 9-1 

CTRL/O, 9-1 

CTRL/Q, 9-1 

CTRL/S, 9-1 

CTRL/U, 9-2 



DAT$ function, 5-26 
Data 

excess, 3-2 

files, 6-1 to 6-11 

items, format of, 3-5 

pointer, restoring the, 3-7 

reading, 3-5 to 3-7 

storing, 6-1, 6-6 to 6-7 

supplying, 3-1 to 3-7 
DATA statement, 3-5 to 3-7 
Date function, 5-26 
Decimal point 

in numeric constants, 2-1 

in PRINT USING statement, 7-3 
DEF statement, 5-21 
Defining functions, 5-21 

in immediate mode, 5-25 
DEL command, 9-3 
Deleting 

data files, 6-11 

program files, 9-8 

program lines, 9-3 
Digits in PRINT USING statement, 

number of, 7-3 
Digits of accuracy, 7-8 
DIM statement, 2-16 to 2-18 
DIM # statement, 6-9 
Dimensioning 

arrays, 2-16 to 2-18 

virtual arrays, 6-9 
Direct I/O, 6-8 
Division, 2-8 

Documentation conventions , ix to x 
Documenting procedures, 1-6 
Dollar signs 

in PRINT USING statement, 7-6 

in string function names, 5-12 

in string names, 2-6 

in user-defined function name, 
5-21 
Double quotation marks, 2-3 
Dummy variables, 5-22 



INDEX tCont.) 



E format, printing numbers in, 

7-8 
E in PRINT USING statement, 7-11 
E notation, 2-2, 7-8 
E, an algebraic constant, 5-4 
Editing a program line, 9-9 
Efficiency of compiled programs, 

9-13 
Ellipsis, ix 
End of file, 6-7 
END statement, 4-12 
Entering BASIC programs, 1-7 
Entering data, 3-1 
Equal sign 

in LET statement, 2-13 

relational operator, 2-11 
Erasing programs, 9-4 
Error conditions 

in functions, A-11 to A-12 

in PRINT USING statement, 7-3, 
7-15 to 7-18 
Error messages, A-1 to A-12 

abbreviated, A-2 to A-3 

fatal, A-1 

nonfatal, A-1 

summary, A-3 to A-11 
Evaluating expressions, 2-9 
Excess data, 3-2 
Executing a program, 9-3 
Execution 

of loops, 4-6 

stopping program, 4-12 to 4-13 
EXP function, 5-4 
Exponential function, 5-4 
Exponentiation, 2-8 
Expr , X 

Expression, ix 
Expressions, 2-8 to 2-13 

arithmetic, 2-8 to 2-10 

arithmetic relational, 2-11 

evaluating, 2-9 to 2-10 

floating point, 2-8 to 2-9 

in the PRINT statement, 3-8 

integer, 2-9 

mixed mode, 2-9 

relational, 2-11 to 2-13 

string, 2-10 
Extended string fields, 7-11 
Extracting a segment from a 
string, 5-16 



Fatal error messages, A-1 
Fields 

centered, 7-10 

extended, 7-11 

format of numeric, 7-13 

format of string, 7-14 

numeric, 7-3 



Fields Ccont.) , 

one-character string, 7-9 

string, 7-8 
Files, 6-1 to 6-10, 9-4 to 9-8 

channel number, 6-2 to 6-5, 6-7 

closing, 6-3 

control statements, 6-1 to 6-4 

data, 6-1 to 6-10 

deleting, 6-11, 9-8 

program, 6-1, 8-1, 9-4 to 9-8 

renaming, 6-10 

resetting, 6-8 

restoring program, 9-6 

running programs from, 9-7 

sequential, 6-1 

specification, x, 6-2 

using, sequential, 6-4 

writing, 6-5 
Finding 

a square root, 5-4 

the length of a string, 5-12 

the position of a substring, 
5-13 
First element in arrays, 2-15 
Floating point 

expressions, 2-9 

format, 2-3 

numbers, 1-10, 2-5 
FN function, 5-21 
FOR INPUT in OPEN statement, 6-2 
FOR NEXT loops, 4-7 to 4-12 

in immediate mode, 1-10 

STEP value in, 4-9 to 4-10 

terminating condition of, 4-8 
FOR OUTPUT in OPEN statement, 6-2 
FOR statement, 4-7 to 4-12 
Format 

centered, 7-10 

data items, 3-5 

error messages , A-1 

floating point, 2-3 

line, 1-3 

numeric fields, 7-13 

numeric output, 3-12 

output, 3-12 

string fields, 7-14 

strings, left-justified, 7-9 

strings, right-justif ied, 7-9 

strings with PRINT, 3-12 
Formatted output, 3-9 to 3-12, 

7-1 to 7-18 
Functions, 2-12 to 2-13, 5-1 to 
5-26 

ABS, 5-8 

algebraic, 5-1, 5-4 to 5-9 

ASC, 5-17 

ATN, 5-2 

BIN, 5-20 

CHR$, 5-17 

CLK$, 5-26 
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Functions (cont . ) , 
conversion, 5-16 
COS, 5-2 
DAT$, 5-26 

error conditions in, A-11 
EXP, 5-4 
FN, 5-21 
INT, 5-6 
integer, 5-6 
LOG, 5-4 
LOGlJZf, 5-6 

numeric, 5-1 to 5-11 
OCT, 5-20 
POS, 5-13 
RND, 5-9 
SEG$, 5-15 
SGN, 5-9 
SIN, 5-2 
SQR, 5-4 
STR$, 5-18 

String, 5-12 to 5-21 
sunimary of arithmetic, B-5 
summary of string, B-6 
TAB, 3-13 

trigonometric, 5-1 to 5-3 
TRM$, 5-13 
types of, 5-1 

user-defined, 5-21 to 5-23 
VAL, 5-18 



GO TO statement, 4-1 to 4-3 

computed, 4-3 
GOSUB statement, 4-14 
Greater than or equal to 

relational operator, 2-11 
Greater than relational operator, 

2-11 



Halting program execution, 4-12 
Header lines, 1-8,: 9-2, 9-3 
Highest line number in program, 
4-12 



IF END # statement, 6-7 

IF THEN statement, 2-11, 4-3 to 

4-6 
Immediate mode statements, 1-9 
to 1-10 
defining a function in, 5-25 
Index values in FOR NEXT loop, 

4-10 
Infinite loop, 4-3 
Initializing 

arrays, 2-5, 9-4 
program storage, 9-4 



Initializing (cont,), 

variables, 2-5, 9-4 

your area, 9-4 
Input 

entering, 3-1 

leading spaces in string, 3-3 

string, 3-4 
INPUT statement, 3-1 to 3-3 
INPUT # statement, 6-4 
INPUT #JZf statement, 3-4 
Int, X 

INT function, 5-6 
Integer, x, 1-10, 2-3, 2-5 

constants, 1-10, 2-3 

constants, range of, 2-3 

expression, 2-9 

function, 5-6 

random, 5-11 

variables, 2-5 
Items 

in capital letters, ix 

in lower-case letters, ix 



Key commands, 9-1, B-9 

CTRL/C, 9-1 

CTRL/0, 9-^1 

CTRL/Q, 9-1 

CTRL/S, 9-1 

CTRL/U, 9-2 

RUBOUT, 9-2 
Keywords, ix, 1-3, 1-4 
KILL statement, 6-11 



L in PRINT USING statement, 7-9 
Leading spaces in string input, 3-3 
Left angle bracket relational 

operator, 2-11 
Left- justified format strings, 

7-9 
Length of a string, 5-12 
Less than or equal to relational 

operator, 2-11 
Less than relational operator, 

2-11 
LET statement, 2-13 
Letters 

lower-case, 1-2 

upper-case, 1-2 
Line 

format, 1-3 

multi-statement, 1-6 

number, x, 1-3 

single statement, 1-5 

terminator, 1-3 
LINPUT statement, 3-4 
LINPUT # statement, 6-5 
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LIST command, 1-8, 9-2 
Listing programs, 9-2 
LISTNH command, 9-2 
Lists, 2-7, 2-14 
LOG function, 5-^4 
LOGlj? function, 5-6 
Logarithm functions, 5-4 
Logic, program, 4-1 
Loops 

execution of, 4-6 

FOR NEXT, 4-7 

infinite, 4-3 

nested, 4-11 

overlapping, 4-11 

STEP value in FOR NEXT, 4-10 
Lower-case letters, 1-2 



Mathematical functions, 2-13, 

5-1 to 5-11 
Matrices, 2-14 
Memory 

program storage area in, 1-7 

saved by reducing program 
size, 9-14 

saved by segmenting programs 
with CHAIN, 8-1 

saved by segmenting programs 
with OVERLAY, 8-7 
Merging program segments, 8-6 
Messages 

error, A-1 

fatal, error, A-1 

nonfatal, error, A-1 

READY, 1-8 

STOP, 4-13 
Minus sign 

subtraction operator, 2-8 

trailing, 7-5 

unary, 2-8 
Mixed mode expressions, 2-9 
Multi-statement line, 1-6 
Multiple 

branching, 4-3 

GOSUB statement, 4-17 
Multiplication, 2-8 



NAME statement, 6-10 
Nested 

loops, 4-11 

parentheses, 2-9 
NEW command, 9-4 
NEXT statement, 4-7 
NONAME program name, 9-4 
Nonfatal error messages, A-1 
Nonprinting characters, 1-2 



Not equal to relational operator, 

2-11 
Notations, numeric, 2-2 
Number 

of digits in PRINT USING state- 
ment, 7-3 

of subscripts, 2-16 

signs in PRINT USING statement, 
7-3 
Numbers 

floating point, 1-10 

output format of, 3-12 

random, 5-9 

real, 1-10 

rounding off of, 5-7 

string representation of, 5-18 

truncating, 5-6 

whole, 5-6 
Numeric 

arrays, 2-17 

constants, 1-10 

constants, range of, 2-2 

field, 7-3 

field, format of, 7-13 

functions, 5-1 

output format, 3-12 

variables, 2-5 



OCT function, 5-20 

Octal 

ASCII code, C-1 
function, 5-20 

OLD command, 9-6 

One-character string fields, 
7-9 

One-dimensional arrays, 2-14 

ON GO TO statement, 4-3 

ON GOSUB statement, 4-17 

ON THEN statements, 4-3 

OPEN statement, 6-2 

Opening a file, 6-2 

Operators 

arithmetic, 2-8 
arithmetic relational, 2-11 
equal sign relational, 2-11 
greater than or equal to rela- 
tional, 2-11 
greater than relational, 2-11 
left angle bracket relational, 

2-11 
less than or equal to relational, 

2-11 
less than relational, 2-11 
not equal to relational, 2-11 
precedence of arithmetic, 2-10 
right angle bracket relational, 
2-11 
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Operators Ccont,), 
string, 2-10 
String relational, 2-12 

Order of 

array storage, 2-16 
common statements, 8-4 
entering program lines , 1-7 
evaluating expressions, 2-10 

Output, 3-8 

format of numbers, 3-12 
format of strings, 3-12 
formatted, 3-9, 3-13, 7-1 to 
7-18 

Overlapping loops, 4-11 

OVERLAY statement, 8-6 

Overlaying programs, 8-6 



Parenthesis, nested, 2-9 
Percent signs 

in integer constants, 2-3 
in integer variable names , 

2-6 
in PRINT USING statement, 7-4 
in user-defined function name, 
5-21 
PI function, 5-2 
Plus sign 

addition operator, 2-8 

string concatenation operator, 

2-10 
unary, 2-8 
POS function, 5-13 
Position of a substring, 5-13 
Precedence of arithmetic opera- 
tors, 2-10 
Preserving variables through 

CHAIN, 8-3 
PRINT statement, 3-8 to 3-15 
compared to PRINT USING, 9-1 
separators in, 3-9 
PRINT # statement, 6-5 
Printing, 3-8 to 3-15, 7-1 to 
7-18 
data to a file, 6-5 to 6-7, 

7-11 
quotation marks, 2-4, 7-18 
zones, 3-9 
PRINT USING Statement, 7-1 to 7-18 
compared to PRINT, 7-1 
format of, 7-2, 7-11 to 7-15 
error conditions in, 7-15 to 

7-18 
printing numbers, 7-2 to 7-8 
printing strings, 7-8 to 7-10 



Program lines 

deleting, 9-3 

editing, 9-9 

format of, 1-5 

order of entering, 1-7 

spaces in, 1-4 
Programs 

changing the name of, 9-8 

checking the size of, 9-13 to 
9-14 

deleting, 9-8 

in files, 6-1, 8-1, 9-4 to 9-8 

initializing, 9-4 

listing of, 9-2 

logic of, 4-1 

merging, 8-6 

overlaying, 8-6 

reducing the size of, 9-14 

resequencing, 9-10 to 9-13 

restoring, 9-6 

running, 1-8, 9-3, 9-7 

saving compiled, 9-13 

segmentation, 8-1 to 8-10 

stopping, 4-12 to 4-13 

storage area in memory, 1-7 

structure of, x 

termination of, 4-12 to 4-13 



Question mark in INPUT statement, 

3-1 
Quotation marks, 2-3 to 2-4 

in string input, 3-3 

printing, 2-4 

printing with PRINT USING, 7-18 



R in PRINT USING statement, 7-10 

Radians, 5-2 

Random 

access files, 6-8 

integers, 5-11 

numbers, 5-9 to 5-11 
RANDOMIZE statement, 5-9 to 5-13 
Range of 

integer constants, 2-3 

numeric constants, 2-2 

subscripts, 2-7 
READ statement, 3-5 
Reading 

data from a file, 6-4 to 6-5 

data values, 3-5 

program files, 9-6 
READY message, 1-8 
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Real numbers, 1-10 

Red ink, x 

Reducing program size, 9-14 

Relational 

arithmetic expressions, 2-11 

expression, 2-11, 4-3 

operators, 2-11 
REM statement, 1-6 

transferring control to, 4-2 
RENAME command, 9-8 
Renaming 

files, 6-10 

programs, 9-8 
REPLACE command, 9-5 
Replacing a segment of a program 

line, 9-9 
Representation of numbers, 

string, 5-18 
RESEQ command, 9-10 to 9-13 
Resequencing a program, 9-10 

to 9-13 
Reserving 

digits in PRINT USING statement, 
7-3 

space for arrays, 2-16 
Resetting a file, 6-8 
RESTORE statement, 3-7 
RESTORE # statement, 6-8 
Restoring 

data pointer, 3-7 

files, 6-8 

program files, 9-6 
Results, printing the, 3-8 
Retrieving program files, 9-6 
RETURN 

key, 3-2 

statement , 4-14 
Right angle bracket relational 

operator, 2-11 
Right- justified format strings, 

7-9 
RND function, 5-9 
Rounding off numbers, 5-7 
Routines, assembly language, 8-9 
RUBOUT key, 1-7, 9-2 
RUN command, 1-8, 9-3, 9-7 

with file specification, 9-7 
RUNNH command, 9-3 
Running a program from a file, 
9-7 



SAVE command, 9-5 
Saving 

compiled programs, 9-13 

programs, 9-5 
SCR command, 9-4 
Search, string, 5-13 
SEG$ function, 5-15 



Segmentation function, 5-15 
Segmenting programs, 8-1 to 8-10 
with CALL statement, 8-9 to 8-10 
with CHAIN statement, 8-1 to 8-6 
with OVERLAY statement, 8-6 to 
8-9 
Semicolon in PRINT statement, 3-9 
Separators in PRINT statement, 3-9 
Sequence of statement execution, 

4-1 
Sequential files, 6-1, 6-4 to 6-8 

compared to virtual array files, 
6-8 
SGN function, 5-9 
Shifting control, 4-1 to 4-17 
Sign function, 5-9 
Signed 2's complement integer, 

5-20, 5-21 
Simple numeric variables, 2-5 
SIN function, 5-2 
Sine function, 5-2 
Single quotation marks, 2-3 

in PRINT USING statement, 7-9 
Single statement line, 1-5 
Size, reducing program, 9-14 
Slash, division operator, 2-8 
Spaces in program lines, 1-4 
Special characters, 1-2 
Special symbols, ix 

in PRINT USING statement, 7-5 
Specification, file, 6-2 
SQR function, 5-4 
Square brackets, ix 
Square root function, 5-4 
Statements 

CALL, 8-9 to 8-10 

CHAIN, 8-1 to 8-6 

CLOSE, 6-3 

COMMON, 8-3 to 8-6 

control, 4-1 to 4-17 

DATA, 3-5 to 3-7 

DEF, 5-21 to 5-25 

DIM, 2-16 to 2-18 

DIM #, 6-9 

END, 4-12 

execution sequence of, 4-1 

file control, 6-1 

FOR statement, 4-7 to 4-12 

GOSUB, 4-14 to 4-16 

GO TO, 4-1 to 4-2 

IF END, 6-7 to 6-8 

IF THEN, 2-11, 4-3 to 4-6 

immediate mode, 1-9 to 1-10 

in IF THEN statement, 4-4 

INPUT, 3-1 to 3-3 

INPUT #i2(, 3-4 

KILL, 6-11 

LET, 2-13 to 2-14 

LINPUT, 3-4 to 3-5 
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Statements (cont.), 

LINPUT #, 6-5 

NAME, 6-10 

NEXT, 4-7 to 4-12 

non-executable, 1-4 

ON GOSUB, 4-17 

ON GOTO, 4-3 

OPEN, 6-2 

OVERLAY, 8-6 to 8-9 

PRINT, 3-8 to 3-15 

PRINT USING, 7-1 to 7-18 

RANDOMIZE, 5-9 

READ, 3-5 to 3-7 

REM, 1-6 

RESTORE, 3-7 

RPSTORE # , 6-8 

RETURN, 4-14 to 4-16 

STOP, 4-12 to 4-13: 

summary of, B-1 to B-5 
STEP value in FOR NEXT loops, 

4-10 
STOP 

message, 4-13 

statement, 4-12 to 4-13 
Stopping program execution, 4-12 
Storage order of arrays, 2-16 
Storing data, 6-1, 6-5 
STR$ function, 5-18 
String, x, 1-3, 2-3 to 2-6, 2-10 

alphanumeric, 2-6 

arrays, 2-17 

centering, 7-10 

concatenation, 2-10 

constants, 1-3, 2-il, 2-3 to 2-4 

copying segments from a, 5-15 

expressions, 2-10 

extracting segments from a, 5-16 

fields, 7-8 to 7-14 

finding the length of a, 5-12 

functions, 2-13, 5-12 

input, 3-3, 3-4 to 3-5 

input with leading spaces, 3-3 

input with trailing spaces, 3-3 

left- justified format, 7-9 

operators, 2-10 

output format, 3-12 

relational operators, 2-11 to 
2-12 

representation of mumbers, 
5-18 

right-justified fcirmat, 7-9 

search, 5-13 

summary of functions, B-6 to 
B-7 

variables, 2-5, 2-6 
Structure of a BASIC program, 1-1 

to 1-2 
SUB command, 9-9 
Subroutines, 4-13 



Subscripted variables, 2-7 
Subscripts, 2-7 

number of, 2-16 

range of, 2-7 
Substring, finding the position 

of a, 5-13 
Subtraction, 2-8 
Summaries 

arithmetic functions, B-5 to B-6 

commands, B-8 to B-9 

error message, A-3 to A-10 

key commands , B-9 

statements, B-1 to B-5 

string functions, B-6 
Supplying data, 3-1, 3-5 to 3-7 
Symbols, special, ix 

asterisk multiplication opera- 
tor, 2-8 

backslash, 1-5, 1-6 

braces , v 

circumflex exponentiation 
operator, 2-8 

dollar sign, in string names, 
2-6 

double quotation marks, 2-3 

equal sign in LET statement, 2-13 

equal sign relational operator, 
2-11 

minus sign, unary, 2-8 

plus sign, unary, 2-8 

single quotation marks, 2-3 

slash division operator, 2-8 

square brackets, v 

TAB function, 3-13 
Tables, 2-7 
Tangent function, 5-2 
Terminating 

condition of FOR NEXT loops, 
4-8 

the program, 4-12 
Time functions, 5-26 
Trailing spaces 

in string comparison, 2-12 

in string input, 3-3 

trimming, 5-13 
Transcendental number, 5-2 
Transfers 

conditional, 4-3 to 4-6 

data between program segments , 
8-4 

to a REM statement, 4-2 

unconditional, 4-1 to 4-2 
Trigonometric functions, 5-1 
Trimming trailing blanks on 

strings, 5-13 
TRM$ function, 5-13 
Truncating numbers, 5-6 
Two-dimensional arrays, 2-14 
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Type-in, user, x 

Types of functions, 5-1 



Unary 

minus sign, 2-8 

plus sign, 2-8 
Unconditional transfer, 4-1 
UNSAVE coininand, 9-8 
Upper-case letters, 1-2 
User-defined function, 5-21 to 

5-25 
Using sequential files, 6-4 



VAL function, 5-18 
Values, ASCII, C-1 to C-3 
Var, X 
Variable, x 
Variables, 2-4 to 2-8 

assigning values to, 2-13 

dummy, 5-22 

initializing, 9-4 

integer, 2-5 to 2-6 

numeric, 2-5 

preserving through CHAIN, 8-3 



Variables (Cont.) 

simple numeric, 2t5 
string, 2-5, 2-6 to 2-7 
subscripted, 2-7 to 2-8, 2-14 
Virtual array files, 6-1, 6-8 
to 6-10 
closing, 6-10 
compared to arrays in memory, 

6-8 
compared to sequential files, 

6-8 
dimensioning, 6-9 



Whole numbers, 2-3, 5-6 
Writing files, 6-5 



Zone, printing, 3-9 to 3-12 
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READER'S COMMENTS 



NOTE: This form is for document comments only. Problems 
with software should be reported on a Software 
Performance Report (SPR) form. 



Did you find errors in this manual? If so, specify by page. 



Did you find this manual understandable, usable, and well-organized? 
Please make suggestions for improvement. 



Is there sufficient documentation on associated system programs 
required for use of the software described in this manual? If not, 
what material is missing and where should it be placed? 



Please indicate the type of user/reader that you most nearly represent. 

I I Assembly language programmer 

I I Higher-level language programmer 

I I Occasional programmer (experienced) 

I I User with little programming experience 

Q student programmer 

Q] Non-programmer interested in computer concepts and capabilities 



Name Date. 

Organization 

Street 



City State Zip Code. 

or 
Country 



If you require a written reply, please check here. Q 
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